<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.
Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Уровень 1.
<body>
<p align=center><font color=blue size=4 face "Tahoma">
<b>Алгоритмы</b>
</font></p>
<p align=center><i>Основные блоки</i></p>
<img align=left src=bloc3.gif
width=200 height=100 hspace=40 vspace=10 alt="Блок Процесс">
<ul type="square">
<li>блок "модификация" (обозначает начало цикла);
</ul>
</body>
----
Уровень 2.
добавить
<ul>
Вставить фрагмент кода из задания.
</ul>
ТЕКСТ
добавляем заголовки таким образом:
<a name="one" >Язык С и С++</a>
ТЕКСТ
<a name="two" >Язык Pascal</a>
ТЕКСТ
<a name="three" >Basic</a>
ТЕКСТ
<a name="four" >Visual Basic</a>
ТЕКСТ
<a name="five" >FORTRAN</a>
ТЕКСТ
<a name="six" >ALGOL</a>
ТЕКСТ
1. Подсчет количества чисел из диапазона [1, 100], кратных 7.
2. В цикле ОШИБКА, причет очень грубая. Скорее всего, автор задачи хотел найти сумму чисел из диапазона от 1 до 10, которые кратны 3 и не кратны 9. Но в данном случае ничего вычисляться не будет из-за ошибки (будет зацикливание).
3. Вычисление среднего арифметического четных чисел из диапазоне от 10 до 99. Тоже написано очень коряво.
1) На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К. По каждой дороге можно двигаться только в одном на
veronka1 [6]
Суммируем сходящиеся стрелки и их значения
Ответ 18
