Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
Дано Шины адреса 36
Процессор 80386
Решения
80386 * 36 = <span>2893896</span>
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
1) Можно ли вызвать командную строку в Windows без использования мыши? (Да)
2) Существует утилита "Экранная клавиатура" , а утилита "Экранная мышь" ? (Нет)