Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.
Северно Ледовитый океан, озеро Байкал, река Нева (открой атлас и посматри).
Примерно так будет выглядеть блок-схема, результат работы программы и сама программа:
Program Age;
uses crt;
var A, M, P, Ma, Pa: integer;
begin
write('Введите Ваш возраст: ');
read(A);
write('Введите возраст мамы: ');
read(M);
write('Введите возраст папы: ');
read(P);
Pa := P - A;
Ma := M - A;
writeln('Возраст мамы, когда Вы родились: ', Ma);
writeln('Возраст папы, когда Вы родились: ', Pa);
end.
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20