A) 7,68 б) <span>5000000
2. </span><span>13421772.8
</span>3. <span>11</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква
var
a:array[1..10] of integer;
i,b:integer;
begin
randomize;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
b:=a[i]*a[10];
write(b);
end.