const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
Это программа для суммы двух чисел:
program summa;
var a,b,c: real;
begin
read (a,b);
c:=a+b;
write (c);
end.
это программа для разности двух чисел:
program raznost;
var a,b,c: real;
begin
read (a,b);
c:=a-b;
write (c);
end.
Объяснение:
2+2=4 - истина
2+9=8 - ложь
Витебск - город - истина
Беларусь - федерация - ложь
if i>l then write(a) - условное выражение - истина
Begin и end - не обезательные команды - ложь
У паука 8 лап - истина
У черепахи 6 лап - ложь
Наполеон Бонапартр - император французов - истина
Христофо Колумб - японец - ложь
А.С. Пушкин - великий пиватель - истина
Фёдор Достоевский - американский писатель - ложь
(A+B*C)=1
Or - оператор эквивалентный сложению
And - умножению
1024*768= 786 432 пикселей
=256
8 бит
786 432 *8 = 6 291 456 бит
6 291 456 / 8 = 786 432 байт
786 432 / 1024 = 768 килобайт
Ответ: 786 Килобайт
ЛАЙКНИ ПЛИЗ