Связь с администрацией сайта:       

demo

Среди толпы я одинок

Программа, запрашивающая стоимость 12 кг яблок и выводящая на экран стоимость 200 г, 400 г, .....1000 г

Программа, запрашивающая стоимость 12 кг яблок и выводящая на экран стоимость 200 г, 400 г, .....1000 г ( с использованием цикла)в Паскале.

 

Var s,i,a:real; 
Begin 
Write('Введите стоимость 12 кг яблок: '); 
Readln(s); 
i:=200; 
While i<=1000 do 
begin 
a:=i*s/12000; 
Writeln(i,' - ',a:0:2); 
i:=i+200; 
end; 
End.

 

Rate this item
(2 votes)
Login to post comments