1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.
Полный код на паскале
var
i: integer;
s: real;
begin
s := 0;
for i := 12 to 2001 do
s := s + i;
writeln(s);
s := 1;
for i := 2 to 201 do
s := s * i / (i + 2);
writeln(s);
s := 1;
for i := 1 to 33 do
if i mod 3 = 0 then s := s * 2;
writeln(s);
s := 2;
i := 10;
while i <= 13 do
begin
s := s + 11;
i := i + 1;
end;
writeln(s);
end.
Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46
Допустим число 11 первое число 1×10=10
11=101
18 слов.
1.вид такни называется хлопок.
2.хлебо-булочное изделие с разной начинкой-это пироги
3.вид речных рыб-окуни
4.преправа для блюд-соль.
5.небольшая часть тканей(волос)называется прядью
6.срезал-оторвать от целого тела часть
7.чувство, при которых человек чувствует раздражение, боль, досаду называется мУками.