Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
Напиши букву "о" в русской раскладке - вот попробуй копируй и вставь в названия: " cоn " можно еще место с англиской, написать с русскую.
Ответ:
А\/В
Объяснение:
_
А \/ В. |. ¬(¬A v B) v ¬C
0. 1. | 1. 1
0. 0. | 0. 0
1. 1. | 1. 1
1. 0. | 1 1
var
a, b: integer;
res: real;
begin
write('Число a:');
readln(a);
write('Число b:');
readln(b);
res :=(a+b)/(a-b);
writeln('Результат:', res:2:3);
end.