<h2>Задание 1</h2>
(смотри первую прикреплённую фотографию)
<h2>Задание 2</h2>
(смотри вторую прикреплённую фотографию)
Если код второго задания для Вас "сложен", то, извините, Вам придётся для работы каждого типа с каждым писать отдельные перегрузки:
float и int, double и int, float и double, size_t и int. В общем - таких типов очень много и полноценный калькулятор у Вас выйдет на 100+ строк.
Шаблоны изучаются вначале, так как позволяют избежать вот таких ситуаций.
Чем отличается сохранить и сохранить как? ну если по логически подумать сохранить, сохраняет в том формате в котором работал, а сохранить как уже выбераешь сам как сохранить и в каком формате.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.