var
i, p,
w:real;
begin
writeln('Введите
зарплату Иванова');
readln(i);
writeln('Введите
зарплату Петрова');
readln(p);
if i>p
then
writeln
('Иванов заработал больше Петрова') else
writeln
('Петров заработал больше Иванова');
w:=(i+p)/2;
writeln
('Средняя зарплата мальчиков ', w,
' руб.');
<span>end.</span>
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span><span>861,328125Кбайт</span></span>
Если речь идет об электронных таблицах, то ячейка именуется по умолчанию номером столбца и номером строки. Например: А5, В10, IV65536. Пользователь может сам вместо такого имени ячейки присвоить ей мнемоничное (отражающее суть данных) имя, но об этом можно говорить уже после того, как основные операции с таблицей освоены.
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>
const m = 6; n = 4; var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n]oflongint; p: longint;