Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
program month;
uses crt;
var a: integer;
clrscr;
write('vsatvte chislo');
read(a);
if (a=12) or (a=1) or (a=2) then write('zima')
else if (a=3) or (a=4) or (a=5) then write ('vesna')
else if (a=6) or (a=7) or (a=8) then write ('leto')
else write('oseni');
repeat until keypressed;
(¬(m v l) /\ k) → ((¬k /\¬m) \/ n)
(¬m /\ ¬l /\ k) → ((¬k /\¬m) \/ n)
ложно если первая часть 1 а вторая 0
¬m /\ ¬l /\ k = 1 => m=0, l=0,k=1
(¬k /\¬m) \/ n = 0
подставляем
(0 /\1) \/ n = 0 => n=0
Популярные вопросы