Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>
Insert включает и отключает режим замены. В обычном режиме (вставки) вводимые символы вставляются в место положения курсора, в режиме замены вводимые символы заменяют стоящие справа от курсора. Совместно с Ctrl или Shift кнопка Insert позволяет скопировать или вставить текст.
Для считывания файла с диска нужно указать имя файла. Дата создания для считывания не нужна, размер файла (если это нужно) будет определён по имени.
begin
var x: integer;
var s: integer;
var Count := 0;
repeat
if not TryRead(x) then
begin
Writeln('This is not the integer number, try again');
continue
end;
s += x;
Count += 1;
until x = 0;
Println('Average =', s / (Count - 1))
end.
Ответ:
а) Компьютер
б)
в)антивирус(вот ссылка на ответы https://www.datarc.ru/articles/10_sposobov_izbezhat_poteri_dannyh.html )
г) Внешняя памят компютера и внутреняя памят человека
д) *обработке) Компьютер
Объяснение:
Var x,y,t:real;
Begin
write('x = ');readln(x);
write('y = '); readln(y);
if x>y then
Begin
t:=y;
y:=(x+y)/2;
x:=x*t*2;
End
else
Begin
t:=x;
x:=(x+y)/2;
y:=x*t*2;
End;
writeln('X = ',x:0:2);
writeln('Y = ',y:0:2);
readln;
End.