Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN_5
.PAS PROGRAM test(output);
var
K:integer;
x:real;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
x:=523.63;
K:=0;
while K<=10 Do
begin
K:=K+2; write(K:5)
end;
write(' ',x:5:3)
end.
var
K:integer;
x:real;
begin
{ ‚ў®¤ Ёб室ле ¤ ле }
x:=523.63;
K:=0;
while K<=10 Do
begin
K:=K+2; write(K:5)
end;
write(' ',x:5:3)
end.
Соседние файлы в папке Alex