Program Albinur; uses crt; var v0,a,t : real; begin writeln('Программа вычисляет скорость объекта при равноускоренном движении'); writeln(' в заданный момент времени'); write('Введите начальную скорость в м/с '); readln(v0); write('Введите ускорение в м/с^2 '); readln(a); write('Введите время в с '); readln(t); writeln(); writeln(); writeln('*** Вычисляю... ***'); writeln(); writeln(); writeln('Через ',t,' секунд после начала движения скорость объекта будет равна ',v0+a*t,' м/с'); end.
Program raketa; uses graph; var gd,gm:integer; begin detectgraph (gd,gm); initgraph (gd,gm,'C:\tp7 '); line (300,60,240,120); line (240,120,240,360); line (360,120,360,360); line (240,360,360,360); line (300,60,360,120); line (240,210,210,240); line (210,240,240,240); line (360,210,390,240); line (390,240,360,240); circle (300,150,15); circle (300,210,15); circle (300,270,15); Bar (270,300,240,360); line (240,360,180,450); line (180,450,420,450); line (420,450,360,360); line (330,450,330,370); line (300,450,300,365); line (270,450,270,370); line (240,330,180,330); line (180,330,90,450); line (172,330,80,445); line (300,60,300,30); readln end.
#include<iostream>
using namespace std;
int main()
{
const int size=25;
int arr[size];
for (int i=5;i<size;i++)
{
arr[i]=i;
}
for (int i=0;i<size;i++)
{
if (arr[i] % 2 == 0)
cout<<arr[i]<<endl;
}
}
Удачи