Предмет: Информатика,
автор: ВИРУССССС
Помогите решить пожалуйста даю 20 баллов!!!
Дано целое число N (0<=N<=9). Написать программу, вычисляющую сумму всех двузначных чисел(в записи которых нет цифры N)
Даны целые числа A и B.Написать программу, подсчитывающую сумму двузначных чисел, у которых либо первая цифра равна A, либо вторая цифра равна B.
Написать программу, определяющую количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
Все через While
антагонист:
в 3 задании if использовать можно?
да
Ответы
Автор ответа:
5
program tak;
var a,b,c,N:integer;
begin writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
for a:=99 downto 10 do begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
end;
writeln(b);
end.
эт первая
program tak2;
var a,b,c,d:integer;
begin writeln('введите два числа ');
readln(a,b);
d:=0;
for c:=99 downto 10 do begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
end;
writeln(d);
end.
эт вторая
var a,b,c,N:integer;
begin writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
for a:=99 downto 10 do begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
end;
writeln(b);
end.
эт первая
program tak2;
var a,b,c,d:integer;
begin writeln('введите два числа ');
readln(a,b);
d:=0;
for c:=99 downto 10 do begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
end;
writeln(d);
end.
эт вторая
while (a>=10) and (a<=99);
спасибо
хотя погоди, я шас напишу и скину в коменты
окей
program tak;
var a,b,c,N:integer;
begin
writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
a:=10;
while (a>=10) and (a<=99) do
begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
a:=a+1;
end;
writeln(b);
end.
var a,b,c,N:integer;
begin
writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
a:=10;
while (a>=10) and (a<=99) do
begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
a:=a+1;
end;
writeln(b);
end.
первая
program tak;
var a,b,c,d:integer;
begin
writeln('введите два числа) ');
readln(a,b);
d:=0;
c:=10;
while (c>=10) and (c<=99) do
begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
c:=c+1;
end;
writeln(d);
end.
вторая
var a,b,c,d:integer;
begin
writeln('введите два числа) ');
readln(a,b);
d:=0;
c:=10;
while (c>=10) and (c<=99) do
begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
c:=c+1;
end;
writeln(d);
end.
вторая
спасибо огромное выручили )
та обращайся коли что
окей
Похожие вопросы
Предмет: Русский язык,
автор: temir1908
Предмет: Қазақ тiлi,
автор: Akon11111
Предмет: Беларуская мова,
автор: максим1062
Предмет: Английский язык,
автор: Tyeu
Предмет: Английский язык,
автор: Аноним