var
s:string;
z,z1,i:integer;
begin
readln(s);
z:=0;
z1:=0;
for i:=1 to length(s) do
begin
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z>z1 then writeln('больше букв м');
if z<z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
1) Антивирус Kaspersky
2) WinRar
3) KMPlayer
4) Opera
5) Paint
6) Outlast
7) Linux
8) Microsoft Office PowerPoint
9) Pascal ABC
10) Excel
11) Microsoft Word
12) Wikipеdia
Описание:
введем массив из температур - w,
будем вводить значения температур с помощью цикла и сразу находить сумму s, затем найдем среднее значение sr_t и выведем его значение, отведя для этого 5 знакомест, из которых 2 после запятой - sr_t:5:2.
program sr_temp;
var s,i:integer; sr_t:real;
w: array [1..7] of integer;
begin
s:=0;
for i:=1 to 7 do
begin
readln(w[i]); s:=s+w[i];
end;
sr_t:=s/7;
writeln('Средняя температура за неделю - ',sr_t:5:2);
end.
737^10-2,16≈4,72797•10^28
<span>текст "информатика 8 класс" занимает 18 байт.</span>