<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=5;
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-30,99);
a.Println(4); Writeln(4*n*'-');
a.Transform(t->t<7?t*t:t);
Writeln('*** Полученный массив ***'); a.Println(4)
end.
1 ) <span>писатель-фантаст Герберт Уэллс</span>
<span>2) <span>В. И. Ленин</span></span>
Оператор ввода - readln
оператор выбора - if
var - раздел описаний
Program name;
var a,b,s:real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
var
hour:integer;
begin
write('Который час? '); readln(hour);
case hour of
6..11: writeln('Доброе утро');
12..15:writeln('Добрый день');
16..21: writeln('Добпый вечер');
22..24, 0..5: writeln('Доброй ночи');
else
writeln('В сутках только 24 часа');
end;
end.
//через if
<span>var Hour:integer;
begin
writeln('Введите время');
readln(Hour) ;
if Hour <= 12 then
begin
writeln('Добрго утра');
end;
if (Hour > 12) and (Hour < 20) then
begin
writeln('Доброго дня');
end;
if (Hour >= 20) and (Hour <= 24) then
begin
writeln('Добрый вечер');
end;
if Hour > 24 then
begin
writeln('Не многовато часиков то ?');
end;
end.</span>