Program Alina;
uses crt;
const
a=200;
b=300;
var i, n, k: integer;
begin
k:=0;
for i:=a to b do
if i mod 7 = 0 then k:=k+1;
writeln('Всего ',k,' чисел, кратных 7');
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b):=ReadReal2;
if a<>b then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.
1 720 Кбайт
2 720 Кбайт
3 1 Кбайт
4 если б байты то 40 если б это биты то 5 (я просто не понял что значит б)
Nxnfjfkfiffjfjfjfjjchcchchchjcjvjcncnxmcmcmmc
А) Считается кол-во букв в слове.
б) Считается кол-во гласных букв в слове.
в) Считается кол-во согласных букв в слове.
г) Слово переворачивается задом наперёд.
д) Выводится порядковый номер первой буквы в слове