Полная.
"У школы №3 1 сентября в 10:00 будет проведена линейка"
Полезная.
Состав принимаемого лекарства.
Формулы по физике во время экзамена.
Актуальная.
Курс валюты.
Погода на улице, когда вы выходите из дома.
Достоверная.
"Россия выиграла у Испании на ЧМ за счет пенальти."
Данные, записанные в документах.
Точная.
"Земля - шарообразная"
Понятная.
"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )
Объективная.
"Высота этой скалы 100 м." (вместо "Скала довольно высокая").
Var a,i:integer;
Begin
A:=1;
For i:=30 to 40 do
Begin
If i mod 10 mod 2 =1 then
A:=a*(i mod 10);
If i div 10 mod 2 =1 then
A:=a*(i div 10);
End;
End.