Вход Решение
k 10 10 11
s 10 10+10 = 20 20+11=31
Напечатано будет 31.
Только почему цикл от 10 до 11 (проверь строчку <span>for k=10 to 11 do)</span>
Логическое выражение: ¬(a∧b∧¬c)
Его можно также привести к другому виду:
Таблица истинности приведена во вложении.
Массив –
это группа однотипных элементов, имеющих общее имя и расположенных в памяти
рядом.
var A <span>: array[ 1 .. 5 ] of integer </span>
<span>A - имя массива</span>
<span>1 - начальный индекс</span>
<span>5 - конечный индекс</span>
<span>integer - тип элементов массива</span>
<span>
</span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
128 кб. экран VGA (640X480? 256)