Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
Привет, перейди в Пуск, введи название программы и рисуй на здоровье)
Ответ:
var
a:integer;
b,c:string;
begin
writeln('--------------------------');
writeln('---Программа знакомства---');
writeln('--------------------------');
writeln('Я персональный ЭВМ,');
writeln('А как зовут тебя?');
readln(b);
writeln('Сколько тебе лет?');
readln(a);
writeln('В каком классе ты учишься?');
readln(c);// цифра и буква
writeln('Рада познакомиться с тобой, '+b);
writeln('Молодец, в '+a+' лет написал такую программу!');
writeln('В твоём '+c+' классе все такие?');
end.
2) положить на стол. 4)начать писать что надо. 5)проверить. 8)решить его в черновике...
1.
алг Девять
нач цел a,i,s
ввод a
| вывод a
s:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
если i=9
то s:=s+1;
все
кц
если s>1
то вывод "Цифр 9 в введенном числе больше одной - ", s
иначе если s=0
то вывод "Цифр 9 в введенном числе нет"
иначе вывод "Цифра 9 в введенном числе одна"
все;
все
кон
2.
алг ЧетНечет
нач цел a,i,s,k
ввод a
| вывод a
s:=0;
k:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
k:=k+1;
если mod(i,2)=0
то s:=s+1;
все
кц
если s=k
то вывод "Все цифры введенного числа четные "
иначе вывод "Не все цифры введенного числа четные"
все
кон
3.
алг Возрастание
нач цел a,i,s,k,d,z
ввод a
s:=0;
k:=0;
d:=0;
z:=1;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
d:=s;
s:=i;
k:=k+1;
если d>s
то z:=z+1;
все
кц
если z=k
то вывод "Все цифры введенного числа идут в порядке возрастания"
иначе вывод "Не все цифры введенного числа идут в порядке возрастания"
все
кон