Составьте программу рисования ряда одинаковых цветков с использованием процедуры Flower ( В ряду 11 цветков)
Ответы
1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Из каких подсистем состоит персанальнальный компьютер
Автор: Борисов
Даны три неравных числа, вывести меньшее из них(программа
Автор: gladkihvv
Надо определить точки 1 это (0; 3)
Автор: schumacher8
Вводятся k натуральных чисел. Найти сумму цифр каждого из них
Автор: Allahverdi_Мария475
Вычислите: cccxli+cxxxvi.результат запишите в римской системе счисления
Автор: dksvetlydir
1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.