Мы живем в таком мире, в котором люди постоянно окружены информацией. Все окружающие вас процессы, предметы, явления несут в себе информацию, но иногда получаемой вами информации по определенному вопросу бывает либо недостаточно, либо слишком много. Так что же лучше, переизбыток или недостаток? Я думаю, конечно же, переизбыток. Человек обладает способностью анализировать, поэтому я считаю, что лучше получить информации чуть больше, чем надо и впоследствии переработать ее, чем чего то не понять и продолжать лишь догадываться. Информация это всегда хорошо, человеку свойственно тянуться к новым знаниям, главное уметь из ее непрерывного потока взять максимум полезного для себя.
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.