1) кратны пяти только 5 и 10, значит 1*5*10=50
Ответ: 50
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.
<span>a:= 15; переменная а получает значение 15 (обозначим это так: 15 ⇒ a)
b:= (a/3)*a; (15/3)*15 = 5*15 = 75 ⇒ b
а=а-10; 15-10 = 5 ⇒ a
с:= a+b; 5+75 = 80 ⇒ c
b:= c/(2*a);</span> 80/(2*5) = 80/10 = 8 ⇒ b
Ответ: 8
<u>в задаче два шага 1 и 0.5 или один 1.05 ???
Для шага 1</u>
var x,y:integer;
begin
for x:= -7 to 7 do begin
y:=5*x-3
writeln(x,' ',y);
end;
end.
<u>Для шага 0.5
</u>var x,y:real;
begin
x:= -7;
while x<=7 do begin
y:=5*x - 3;
writeln(x,' ',y);
x:=x+0.5;
end;
end.
Если шаг 1.05, то во втором варианте пишем x:=x+1.05 (вместо x:=x+0.5; )
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal('Введите семь различных двухзначных чисел'+NewLine,7);
a.Select((x,i)->Format('[{1}]:{0}',x,i+1)).Println(', ');
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Writeln('Максимальный элемент: ',Format('[{0}]:{1}',imax+1,a[imax]));
Writeln('Минимальный элемент: ',Format('[{0}]:{1}',imin+1,a[imin]));
Writeln('Максимальный элемент больше минимального в ',
Round(a[imax]/a[imin]),' раз(а)')
end.
<u>Пример</u>
Введите семь различных двухзначных чисел
23 64 24 28 21 11 19
[1]:23, [2]:64, [3]:24, [4]:28, [5]:21, [6]:11, [7]:19
Максимальный элемент: [2]:64
Минимальный элемент: [6]:11
Максимальный элемент больше минимального в 6 раз(а)