Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
Начало - включить телевизор - пойти на кухню - открыть шкафчик - взять пакетик с попкорном - прочитать инструкцию - поставить попкорн в микроволновку - подождать 3 минуты - достать попкорн - высыпать в чашку - вернуться в комнату - взять пульт - включить фильм - конец
#define N 20
int a[N];
void main (void)
{
int cnt;
for (cnt = 0; cnt < N; cnt++)
if (a[cnt] >30)
printf ("%d", a[cnt]);
}