Известна скорость машины v км\ч(вводится с клавиатуры). напечатать таблицу расстояний за время от 0 до 1 мин с шагом 10 секунд. команда вывода writeln. (написать программу)

171

479

Посмотреть ответы 2

Ответы на вопрос:

hunateВадим2827854

Информатика

4,8(59 оценок)

Var v: real; i,h: integer; begin write('v = '); readln(v); v: =v*1000/3600; //м/сек h: =10; for i: =0 to 60 div h do writeln(i*h: 3,' сек',v*i*h: 6,' м'); end. пример: v = 90 0 сек 0 м 10 сек 250 м 20 сек 500 м 30 сек 750 м 40 сек 1000 м 50 сек 1250 м 60 сек 1500 м

Askarabdullaev

Информатика

4,4(67 оценок)

// pascalabc.net 3.1, сборка 1184 от 02.03.2016 uses graphabc; begin pen.width: =3; // 0 drawrectangle(20,20,70,120); // 1 line(90,70,140,20); line(140,20,140,120); // 2 moveto(160,20); lineto(210,20); lineto(210,70); lineto(160,120); lineto(210,120); // 3 moveto(230,20); lineto(280,20); lineto(230,70); lineto(280,70); lineto(230,120); // 4 moveto(300,20); lineto(300,70); lineto(350,70); line(350,20,350,120); // 5 moveto(70,140); lineto(20,140); lineto(20,190); lineto(70,190); lineto(70,240); lineto(20,240); // 6 line(90,190,140,140); drawrectangle(90,190,140,240); // 7 moveto(160,140); lineto(210,140); lineto(160,190); lineto(160,240); // 8 drawrectangle(230,140,280,240); line(230,190,280,190); // 9 drawrectangle(300,140,350,190); line(350,190,300,240) end.