Var
k:integer;
a,s:real;
begin
while k < 7 do
begin
write('Введите число: ');
readln (a);
s:=s+a;
k:=k+1
end;
writeln('Сумма 7 чисел равна: ',s)
end.
Program mmm;
Var a : real;
var i: integer;
s: real;
begin
s:=0;
Randomize;
For i := 1 To 30 Do
Begin
a := random*100-45;
writeln(a:6:2) ;
//выписываем сгенерированные числа, необязательно
if a>40 then
s:=s+a;
End;
writeln(s:6:2) ;
end.
К какому выражению то? У меня нет ничего....
чтобы вычислить любое слова в юникоде, надо лишь знать, что 1 символ = 2 байта