Обзор программ часть 1: Free Pascal

Опубликовано: 13 Октябрь 2024
на канале: nikita497926

11,989

Скачать тут http://www.freepascal.org/download.var

В ней можно писать :
Для того чтобы выводился текст:
Program One;
Uses CRT;
Begin CLRSCR;
Write('Текст');
Reakey
End.

Для решения:

Programs arifmetika;
Uses CRT;
Var a, b, summa, proizv: INTEGER;
Begin CLRSCR;
Writeln(' Vvedi a, b');
Readln(a,b);
Summa:=a+b;
Proizv:=a*b;
Writeln(' summa=', summa);
Writeln(' proizvedenie', proizv);
Readln
End.