Var a, b, sum: integer;
readln(a);
readlb(b);
if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then
sum := a + b;
else writeln("в числах нет 6 или они не двузначные");
writeln(sum);
кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь.
а так просто объяснение:
вводим с клавиатуры 2 числа, заводим переменную для суммы
проверяем есть ли в числах цифра 6 и не двузначное ли оно
если все ок, то считаем и выводим сумму
1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;
var
i: integer;
mult: real;
begin
mult := 1;
for i:= 2 to 10 do
begin
mult := mult * (1 - 1/i) * (1 - 1/i);
end;
writeln(mult);
readln();
Вот тебе ответ по этому выражению.
S=50*t+20
50t расстояние от пункта А через t часов
50t+20- расстояние пункта В через t часов