Напишите процедуру, которая принимает один параметр – натуральное число N,

July 2022 1 66 Report

Напишите процедуру, которая принимает один параметр – натуральное число N, – и выводит на экран прямоугольник длиной N и высотой 3 символа.

Answers & Comments

pacixor Procedure Rectangle(Width: integer);
var i: integer;
begin
for i := 1 to Width do write('*');
writeln;
if width <> 1 then write('*');
writeln('*':Width-1);
for i := 1 to Width do write('*');
end;

var
N: integer;
begin
write('N = ');
readln(N);
Rectangle(N);
end.

2 votes Thanks 4

danulpopov при запуске от N = 1
*
**
*

danulpopov Так задумано?

pacixor Поменял

pacixor Спасибо

Answers & Comments

kakovy pokazaniya ampermetra i voltmetra v2 chemu ravno obshee pokazanie napryazhen

v ravnostoronnij treugolnik so storonoj 4 sm vpisana okruzhnost r napishite r

dva rezistora vklyucheny v cep tak kak pokazano na risunke vyberite pravilnoe9021eedea7aaff0d13590b7f68805ba6 69122

dva rezistora vklyucheny v cep tak kak pokazano na risunke vyberite pravilnoe73c363a67b205d2d060085c8866b7190 34150

bolshee iz tryoh reshite pliz s c

pozhalujsta reshite eto zadaniead07a3b8794876362e7469cf5750442a 97021

reshite pozhalujsta etot test nagrada 74 balla

reshite plz dayu 60 ballov

pomogite plizzzzz himich 8 klass rabota po teme soedineniya himicheskih elementov

skolko grammov gidrooksida medi 2 obrazuetsya iz 32g sulfata medi i gidrooksi

рекомендуемые вопросы

Helpful Links

Helpful Social