Var
n,a,b,c:integer;
begin
readln(n);
//Найдём 3 цифры
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then
writeln('Есть четная цифра')
else
writeln('Нет четной цифры');
end.
Е,Д,Ё,Е,Ж,Ё,З,Ж,И,З......
Узнаем,сколько тратит Вася, например, на звонки в месяц на номера своего оператора мобильной связи. Умножим количество минут разговора на цену одной минуты
T1*P1
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер+
T1*P1+T2*P2+T3*P3
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер-
T1*C1+T2*C2+T3*C3
Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит тариф Супер- выгоднее
Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит Васе будет не выгодно переходить на Супер-
А что за алгоритм? Блок-схему составить? Или программу написать? Или словесный алгоритм?
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче