Program co;
var
i, n, t, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
readln(t);
if (t mod 6 = 0) and (t mod 10 = 4) then
c := c + 1;
end;
writeln('чисел: ', c);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Ex211a=class
public
constructor(fio,phone:string);
begin
var n:=Max(fio.Length,phone.Length);
Writeln((n+2)*'*');
Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
Writeln((n+2)*'*')
end;
end;
type
Ex211b=class
public
constructor;
begin
var n:=ReadInteger('Введите целое число:');
Writeln('Результат равен ',n+10)
end;
end;
begin
new Ex211a('Иван Иванов','7-841-2666666');
new Ex211b
end.
<u>Пример</u>
***************
*Иван Иванов *
*7-841-2666666*
***************
Введите целое число: 18
Результат равен 28
В)часть памяти на жестком <span>диске почтового сервера, отведенную для пользователя;</span>
Первое .
вроде бы.
извини,если не правильно
<3
<span>Блок-схема линейного алгоритма.</span>
<span>Разветвляющийся алгоритм</span>
<span></span>