Радио изобрели в 1895 году. MDCCCXCV
Первый полет в космос состоялся в 1961 году. MCMLXI
Олимпийские игры в Москве были проведены в 1980 году. MCMLXXX
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
3)
направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span><span>
4)
</span>направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span>повторить 4{
повторить 2{
налево 90
<span>вперед 100}
</span>повторить 2{
направо 90
<span>вперед 100}
</span>}
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Иванов пришёл и провёл 6 уроков подряд
Петров пришёл ко 2 уроку и провёл 4 урока подряд
Сидоров пришёл к 1 уроку, провёл подряд 2 урока и ушёл домой
Окон нету. Таблица в приложении