Program we
Var x,y,I,h,a,count:integer
begin
readln(x)
Readln (y)
Readln(h)
I:=0
Count:=0
Repeat
Count:=count+1
I:=I+x-y
Until I>=h
Written ('за ',сount', дней улитка поднимется до конца ')
End
Это если не ошибаюсь 1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21=51090942171709440000
1.)Чтобы выбрать фоновый цвет необходимо выбрать необходимый цвет и выбрать заливку.
2.)Чтобы выбрать основной цвет необходимо выбрать цвет и рисовать .3.)Чтобы нарисовать прямоугольник необходимо на панели выбрать прямоугольника .
<span>4.)Чтобы нарисовать квадрат необходимо на панели выбрать квадрат . </span><span>5.)Чтобы нарисовать овал необходимо на панели выбрать овал .</span><span>6.)Чтобы нарисовать круг необходимо на панели выбрать кру</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var a:=ReadInteger('Введите 1 число');
var b:=ReadInteger('Введите 2 число');
var c:=ReadInteger('Введите 3 число');
var d:=ReadInteger('Введите 4 число');
if a mod 3 =0 then s:=s+a;
if b mod 3 =0 then s:=s+b;
if c mod 3 =0 then s:=s+c;
if d mod 3 =0 then s:=s+d;
println('Сумма кратных 3 = ',s);
end.
Тестовое решение:
Введите 1 число 9
Введите 2 число 16
Введите 3 число 18
Введите 4 число 0
Сумма кратных 3 = 27
38 ∙ 60 = 2280 байт информационный объем одной страницы, 1.44 = 1509949,44 байт, 1509949,44 : 2280 = 662,26, следовательно поместится на дискете 662 страницы