Саблезубые тигры Самостоятельная работа
макс.
Дедлайн: 20 окт. 13:23
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Добраться до Изумрудного города не так-то легко, даже если идёшь по дороге из жёлтого кирпича от саблезубых тигров, Дороти и её друзья перебежали по поваленному стволу дерева, а Железный Дровосек тут же начал его рубить. Судьба друзей зависит от толщины ствола, которая записывается трёхзначным числом. Если сумма всех трёх цифр числа кратна 8, а последняя цифра не 1, то Железный Дровосек успеет перерубить ствол, а если нет, то придётся сражаться Трусливому Льву.

Напишите программу, которая это определит.

Формат ввода
Вводится трёхзначное число.

Формат вывода
Вывести Успеет, если все условия выполнены, или сумму всех трёх цифр числа и через пробел последнюю цифру, если нет.

Пример 1
Ввод Вывод
862
Успеет
Пример 2
Ввод Вывод
161
8 1

Показать ответ

Ответ:

farid2008farid

19.06.2020 14:30

//Pascal ABC.NET v3.1 сборка 1219

Const
n=15;

Var
ar:array[1..n] of integer;
pro,i,k:uint64;
begin
randomize;
pro:=1;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(22,23); //Серьёно?
write(ar[i]:4);
pro:=pro*ar[i];
end;
writeln;
writeln('Pro=',pro);
write('Enter value:');
readln(k);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+k;
write(ar[i]:6);
end;
end.

Пример работы программы:
First array:
23 23 22 22 22 22 23 23 23 22 23 22 22 23 23
Pro=10868183115618730368
Enter value:3
Final array:
26 26 25 25 25 25 26 26 26 25 26 25 25 26 26

0,0(0 оценок)

Ответ:

ikaerlapova

01.02.2023 17:28

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else
  Begin
Writeln('Введите элементы матрицы');

k:=0;
for i:=1 to N do
  for j:=1 to M do
  Begin
  readln(mas[i,j]);
  if (mas[i,j] mod 2 = 0) then k:=k+1;
  end;

Writeln();
  Writeln('Исходная матрица');

for i:=1 to N do
Begin
for j:=1 to M do
  Begin
Write(mas[i,j], ' ')
   end;
  Writeln();
end;

Writeln();
Writeln('Количество четных элементов = ',k);
end;

readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика