var i: integer;
n1,n2: integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i);
end
end;
end.

0 0

4 года назад

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу

Дэля

//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
s,n,i:integer;
begin
readln(n);
s:=0;
for i:=1 to 3 do
begin;
s:=s+n mod 10;
n:=n div 10;
end;
if s mod 2=0 then writeln('Yes') else writeln('No');
<span>end.

Пример ввода:
123
Пример вывода:
Yes</span>

0 0

4 года назад

Помогите прошу вас срочна, промежуточная аттестация

ivan-uzs131

Информация – это сведения об окружающем мире (объекте, процессе, явлении, событии), которые являются объектом преобразования (включая хранение, передачу и т.д.) и используются для выработки поведения, для принятия решения, для управления или для обучения.
виды :
1. графическая или изобразительная.
2. звуковая
3. текстовая
4. числовая
5. видеоинформация

0 0

4 года назад

Мама дала Андрею S грн. на покупку n1 тетрадей в клеточку стоимостью v1 грн. за одну тетрадь и n2 ручек стоимостью v2 грн за одн

Никита0910

Я так понимаю, задача на вывод формулы?

!! Если V - стоимость конфет за килограмм, то $\frac{V}{1000}$ - стоимость за грамм.

Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле: $N = \frac{1000(S - (n_1 \cdot v_1 + n_2 \cdot v_2))}{V}$

Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".

0 0

1 год назад