Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Я думаю, что ответ 4, потому что:
Смотри, буква A находилась по коду
"А" =80+00=80, то есть по вертикальному столбцу ищем 80, а чуть выше столбца, по вертикали есть коды 00,01 и т. д., ищем 00, попадаешь в букву А, так же и с А0+0С=А0С. Ищешь по вертикальному столбцу A0, по горизонтальному 0С попадаешь в м.
В ответе есть вариант с М, но эта большая буква и нам не подходит.