Помогите пожалуйста написать правильную формулу в Excel по информатике.
Пж помогите с инфой!!
Пж помогите с информатикой!пж
Лучшие помощники
За сегодня
Ежедневный Еженедельный Ежемесячный За 3 месяца
Пеппер 1594904
uh19 1470789
Piraryky 1398362
Знания 1202166
Luluput 1184234
Премиум-доступ
с МозговНет
Начни учиться еще быстрее
с неограниченным доступом
к ответам от экспертов
Вместе мы
знаем
больше!
Этот сайт использует cookies. Политика Cookies Вы можете указать условия хранения и доступ к cookies в своем браузере.
Источник: mozgovnet.com
Написать программу которая находит и выводит на печать все четырехзначные числа
составить программу решения задачи с использованием подпрограмм.
Написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется условие ab-cd=a+b+c+d.
Занятие 12 | Реализация различных задач
Последний раз редактировалось Evgo; 20.06.2009 в 01:08 . Причина: Изменение важности задания.
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
Программа без подпрограмм выглядит:
Program zadacha4_2;
uses crt;
Var
a:array[1..4] of integer;
b:array [1..9000] of integer;
i,j,k,x:integer;
begin
clrscr;
j:=0;
for i:=1000 to 9999 do
begin
j:=j+1;
b[j]:=i;
end;
for i:=1 to 9999 do
begin
j:=0;
x:=b[i];
repeat
j:=j+1;
a[j]:=x mod 10;
x:= x div 10;
until (x=0);
if (a[1]*10+a[2]-a[3]*10-a[4]=a[1]+a[2]+a[3]+a[4]) then
begin
for k:=1 to 4 do
write(a[k]); write(‘ ‘);
end;
end;
end.
Где можно вставить подпрограммы?
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
как-нибудь так
function count(a,b,c,d:integer):boolean; begin count := (a * b — c * d) = (a + b + c + d); end; procedure separate(x:integer; var a,b,c,d:integer); begin a := x div 1000; b := x div 100 mod 10; c := x div 10 mod 10; d := x mod 10; end; var x:integer; a,b,c,d:integer; begin for x:=1000 to 9999 do begin separate(x,a,b,c,d); if (count(a,b,c,d)) then writeln(x); end; readln; end.
Пользователь
Регистрация: 17.06.2009
Сообщений: 17
По условию a*10+b-c*10-d=a+b+c+d, а не a*b-c*d=a+b+c+d. После этого исправления программа показывает правильные числа.
Спасибо за помощь.
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
По условию a*10+b-c*10-d=a+b+c+d, а не a*b-c*d=a+b+c+d. После этого исправления программа показывает правильные числа. Спасибо за помощь.
| Написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется условие ab-cd=a+b+c+d. |
это то, что вы написали. Она и так показывает правильные числа для условия ab-cd=a+b+c+d.
ПРОГА для 6 ЗАДАНИЯ на PYTHON, которая сама СЧИТАЕТ ТОЧКИ! | ЕГЭ по информатике 2023
Источник: www.programmersforum.ru
Написать программу, которая находит и выводит на печать все четырёхзначные числа abcd, для которых выполняется : a, b, c, d — разные цифры ab-cd=a+b+c+d
Правильный ответ на вопрос «Написать программу, которая находит и выводит на печать все четырёхзначные числа abcd, для которых выполняется : a, b, c, d — разные цифры . » по предмету Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант — оцените ответы на похожие вопросы. Но если вдруг и это не помогло — задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Переведите число 202 из восьмеричной системы счисления в десятичную
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Вводятся 3 числа, вывести на экран нечетные числа pascal
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Главная » Информатика » Написать программу, которая находит и выводит на печать все четырёхзначные числа abcd, для которых выполняется : a, b, c, d — разные цифры ab-cd=a+b+c+d
Источник: abiturient.pro