program sdad; var a, b, i, c: integer; sum, pro, sr: real; begin sum := 0; pro := 1; sr := 0; c := 0; readln(a, b); for i := a to b do begin c := c + 1; sum := sum + i; pro := pro * i; sr := sr + i * i; end; sr := sr / c; writeln('Сумма чисел = ', sum); writeln('Произведение чисел = ', pro); writeln('Среднее арифметическое кубов = ', sr); end.
вот там с помощью кнопки с клавы a и b

0 0

4 года назад

Нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)

bristlestudent [49]

PascalABC.NET 3.2

uses
GraphABC;
begin
var w:=Window.Width;
var h:=Window.Height;
var x0:=w div 2 -1;
var y0:=h div 2 -1;
SetCoordinateOrigin(x0,y0);
var k:=h/w;
for var x:=0 downto -x0 do begin
 var y:=Trunc(k*x);
 Brush.Color:=clRed;
 Pen.Color:=clRed;
 Circle(x,y,10);
 sleep(50);
 Brush.Color:=clWhite;
 Pen.Color:=clWhite;
 Circle(x,y,15)
 end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу, которая запрашивает ваше имя и выводит на экран сообщение: Здравствуйте, *Имя*На улице хорошая погодаВ Pasc

angel877 [2.1K]

Var
s: string;
begin
writeln('Введите ваше имя');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Сегодня хорошая погода')
end.

0 0

4 года назад