Телефон - тело и фон
диск-дисней и бува к
школа-кола (перед кола буква ш)
Program n1;
var x,y: real;
begin
readln(x,y);
if y=3*x-2 then write('лежит')
else write('не лежит');
end.
математическая;
2. текстовая;
3. графическая;
4. звуковая;
5. видеоинформация.
{В двухмерном массиве найдите количество и произведение не кратных 4
трехзначным элементов k-го столбца}
var
C:array [1..100,1..100] of integer;
p: longint;
kol, k:byte; {кол-во отрицательных эл-тов}
N,M,i,j:byte;
begin
writeln('введите размерность массива (кол-во строк, столбцов)');
readln(N,M);
writeln('введите элементы двумерного массива');
for i:=1 to N do
for j:=1 to M do
read(C[i,j]);
writeln('введите номер столбца');
readln(k);
kol:=0; P:=1;
for i:=1 to N do
if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное}
begin
P:=P*C[i,k];
kol:=kol+1
end;
writeln('kol=', kol:7);
writeln('произведение=', P:5)
end.