Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №17-1 / 17-1 / zadanie_1
.pas program Zadanie_1;
var
cm: real;
d: integer;
begin
for d:=1 to 20 do
begin
cm:=d*2.5;
writeln (d:5,' ¤о©¬ =',cm:5:1,' б¬');
end;
readln;
end.
var
cm: real;
d: integer;
begin
for d:=1 to 20 do
begin
cm:=d*2.5;
writeln (d:5,' ¤о©¬ =',cm:5:1,' б¬');
end;
readln;
end.