Ответ: 1.a=33 б=34
2. а=82 б=118
3.а=50 б=50
Объяснение:
хахаах я не знаю кнш ну у меня так получилось
Весьма интересно описан процесс перемножения чисел ;)
Результат операции будет в временной с именем z
В информатике с таким понятием это - ГРАФ
Var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.
//PascalABC.Net 3.2
begin
var s:=readstring('Введите строку');
if 'f' in s then begin
delete (s, pos('f', s), 1);
if 'f' in s then write (pos('f', s)+1) else write (-1);
end else write (-2);
end.