Работаем в pascal abc.net на промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр. тест: 10 20 10 12 18 20 4
// 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.
В цифровых вычислительных машинах наименьшим информационной величиной является бит, который вследствие применения двоичной системы счисления объединяется в байт (8 бит), в килобайт, мегабайт и т.д по принципу кратности степени числа с основанием 2. до широкого распространения цифровых ЭВМ существовали еще и аналоговые вычислительные машины, в которой каждому мгновенному значению переменной величины, участвующей в исходных соотношениях, ставится в соответствие мгновенное значение другой (машинной) величины, часто отличающейся от исходной физической природой и масштабным коэффициентом, понятия бита в тот момент не использовалось.
1. Program tt; var A,B,C,D: Real; begin Writeln ('Введите массу воды в граммах.'); Readln(A); Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A; C := B/A; Writeln ('Массовая доля соли в раствворе - ',C,'.'); End. 2. Program tt; var A,B,PL,Per: Real; begin Writeln ('Введите длинну первого катета.'); Readln(A); Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2; PER := sqrt(B*B+A*A)+A+B; Writeln ('Площадь - ',PL,'.'); Writeln ('Периметр - ',PER,'.'); End.
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.
Тестовое решение:
10 20
10 12 18 20
4