var
b,a,c:integer;
begin
writeln('Введите цену компьютера: ');
readln(a);
writeln('Введите сумму ваших денег: ');
readln(b);
c:=trunc(b/a);
writeln('Количество компьютеров которые вы можете купить на эту сумму: ',c);
end.
Очень просто. Если так не понимаешь то открой Excel и понаходи эти диапазоны и ячейки.
Правильный ответ: B18
Var
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
<u>Пример</u>
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000
Var a,c,f:integer;
d:string;
begin
f:=0;
writeln('введите строку');
readln(d);
a:=pos('е',d);
writeln('первый символ стоит на ',a,' позиции');
for c:=1 to length(d) do begin
if (d[c] = 'е') then f:=c;
end;
writeln('последний символ стоит на ',f,' позиции'); <span>
end.</span>