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