Program test;
Var
a:string;
Begin
Write('Введите ваше имя: ');
Readln(a);
Writeln(' Привет ', a);
End.
Содержит средства для создания программ практически любого назначения, от низкоуровневых до сложных программных комплексов разного назначения
Порядок переливания краски ( по шагово ) :
шаг перелива - 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8
ведро (12 л) - 12 4 4 9 9 1 1 6
банка (5 л) - 0 0 5 0 3 3 5 0
ведро (8 л) - 0 8 3 3 0 8 6 6
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите коэффициенты a и b:');
Write('Корень уравнения равен ', -b / a:0:3)
end.
Const n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
for i:= 1 to n do
a[i]:= Random(-10,10);
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k)
end.
Пример:
[0,1,-1,-4,-8]
Отрицательных элементов: 3