Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.
Объяснение:
Писать, то что при конъюнкции 0+0=0; 0+1=0; 1+0=0; 1+1=1 Я не буду, ведь есть специальная таблица, я представляю лишь ответы. И они верны!
p.s. У меня знак & не ставится, но действие выполняется.
Порядок действий верный.
Мощность алфавита - это количество символов, из которых состоит алфавит.
26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ