Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, s : real;
r, p, d : real;
begin
write ('введите певрое число- ');
readln (a);
write ('введите второе число- ');
readln (b);
s: = a+ b;
r : = a - b;
p : = a* b;
d : = a/b;
writeln ('сумма =', s);
writeln ('разность =', r);
writeln ('произведение =', p);
writeln ('частное = ', d);
readln
end.
х = log₂ n;
х = log₂ 12 бит.
var
i,j,k: integer;
s,p: string;
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
Популярные вопросы