Var a:integer;
begin
write('a='); readln(a);
if a mod 5 = 0 then writeln('Yes') else writeln('No');
end.
Пример:
a=15
Yes
Декларативные / Описательные знания
Отвечают на вопросы: Что это? Как это бывало / бывает / случается? Я чувствую / думаю, что…
Где наиболее распространены: Философия Культурология Искусствоведение Художественная критика
Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
A) на первом листочке
((X v Y) & !Z) v !Z
k) на втором листочке
((X v Y) & X) & X & !Z
след задание на втором листке
все тоже самое только результат инвертирован
!( ((X v Y) & X) & X & !Z )
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>
