<h2>Задание 1</h2>
(смотри первую прикреплённую фотографию)
<h2>Задание 2</h2>
(смотри вторую прикреплённую фотографию)
Если код второго задания для Вас "сложен", то, извините, Вам придётся для работы каждого типа с каждым писать отдельные перегрузки:
float и int, double и int, float и double, size_t и int. В общем - таких типов очень много и полноценный калькулятор у Вас выйдет на 100+ строк.
Шаблоны изучаются вначале, так как позволяют избежать вот таких ситуаций.
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)