Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>

0 0

4 года назад

Напишите программу на паскаль с помощью массива. Даю 50 баллов Напишите программу для решения следующей задачи. На к

Likurg_2 [28]

===== PascalABC.NET =====

begin

var n := ReadInteger;

var a := ReadArrInteger(n);

Print('Количество неудовлетворительных');

a.Count(p -> p < 5).Println;

if a.Any(p -> p = 10) then

Println('YES')

else

Println('NO')

end.

0 0

4 года назад

Растровый графический файл содержит черно-белое изображение с 2 градациями цвета (черный и белый) размером 800˟600 точек. Каков

Tatyana45

800*600/8битт= 100*600== 60000байт

0 0

4 года назад

Что называется регистором?

разное [92]

Регистр — быстродействующие ячейки памяти, иногда представляется отдельным устройством, используемое для хранения n-разрядных двоичных данных и выполнения преобразований над ними.

0 0

4 года назад