Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
Что такое Windows и какова ее роль? Многие люди пользуются персональным компьютером каждый день, но немногие знают, что же такое Windows – слово, ставшее в нашем языке нарицательным. Ответить на этот вопрос корректно могут очень немногие. Постараюсь внести некоторую ясность. Windows – это не просто набор красивых окошек, картинок и пасьянсов. Это также не та часть компьютера, которую нельзя убрать, заменить, обновить – она не является неотъемлемой. Windows – это современная операционная система с графическим интерфейсом пользователя. Что это значит? Универсальная энциклопедия Кирилла и Мефодия говорит, что операционная система – это «комплекс программ, постоянно находящихся в памяти ЭВМ; организует управление устройствами машины и ее взаимодействие с пользователем». И действительно, Windows – это на самом деле совокупность программ, которая управляет работой других программ, координирует их деятельность.
20 раз:
7, 17, 27, 37, 47, 57, 67, 87, 97
70, 71, 72, 73, 74, 75, 76, 77, 78, 79
<span>program
HelloWorld;</span>
var run,
day: integer;
begin
<span> run := 10;</span>
<span> day := 1;</span>
<span> while run<20 do</span>
<span> begin</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
<span> day:= day +1;</span>
<span> run := run+2;</span>
<span> end;</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
end.