var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('Процент дохода равен 14.2% в год')
else
WriteLn ('Процент дохода в год не определен');
end;
// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.
Существует три способа представления зависимостей между величинами: математическая модель, табличный способ, графический.
1) Математическая модель. Зависимость (количественные величины, связи между ними) записана на языке математики, часто в виде формул.
Преимущества: самый точный способ записать зависимость, "работает" при любых значениях параметров.
Недостатки: сложно представить зависимость, не всегда можно точно выразить одну величину через остальные.
2) Табличный способ. Небольшое количество значений сведены в таблицу.
Преимущества: можно быстро получить найти точные значения параметров, если они есть в таблице.
Недостатки: сложно представить зависимость, нет возможности сказать точно, чему будут равны параметры, если их нет в таблице.
3) Графический способ. Значения изображены в виде графика.
Преимущества: самый наглядный способ.
Недостатки: работает только для значений, которые попали в диапазон построения графика, по графику как правило не узнать точные значения параметров.
Чо так парится.
var n, m:string;
begin
read(n,m)
if(n mod 3 =0)and(m mod 3=0)
then write('yes')
else
if(n mod 9=0) then write('yes')
else
if(m mod 9=0) then write('yes')
else('no')
end.
Program ex;
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.