Var k,x,a:integer;
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
1)64/4=16 (к.)-могло быть
2)64-16=48(г.)-могло быть
Ответ:48 г.,16 к.
1)64/2=32(г.)-могло быть
2)64-32(к.)-могло быть
Отвеет:32 к.,32 г.
3. Спрайт идет 10 шагов и если край, то отталкивается.4. Спрайт ходит всегда с указателем мышки5. Спрайт ходит всегда с указателем мышки, и говорит привет в течении 2 секунд6. Спрайт ходит всегда с указателем мышки, и будет говорить привет
1.Взять тряпку.2.Намочить тряпку.3.Тереть вверх,вниз,вправо,влево.