Предмет: Информатика, автор: smartmail1208

пАмагитИ срочно блин

Приложения:

pigopa6821: На каком языке тебе надо? Я просто знаю c# ; python; JS; C++; Assembler;
smartmail1208: Паскаль
smartmail1208: Черт знает что за язык, но программа паскаль АБС net
pigopa6821: Епарасете, язык мертвых. Ладно щас что нить придумаю, если получится скину код
smartmail1208: Хах, окей.Спасибо
pigopa6821: На будущее иди на кибер-форум, там думаю тоже помогут. Смотри первое готово, щас тебе еще докидывать буду
smartmail1208: Окей
pigopa6821: Это пипец, фух, чисто спид ран по коду. Лайкусик дружа жду))

Ответы

Автор ответа: pigopa6821
1

Ответ:

Решение A

Вот программа на Паскале, которая считывает несколько натуральных чисел с клавиатуры и останавливается, когда введено число "0":

program read_numbers;

var

 num: integer;

begin

 writeln('Введите натуральные числа. Ввод завершится, когда вы введете "0".');

 repeat

   readln(num);

   if num <> 0 then

     writeln('Вы ввели число: ', num);

 until num = 0;

 writeln('Ввод завершен.');

end.

В этой программе используется цикл `repeat...until`, который выполняется до тех пор, пока не будет введено число "0". Каждый раз, когда пользователь вводит число, программа проверяет, не равно ли оно "0". Если число не равно "0", то программа выводит его на экран. Если пользователь вводит "0", то цикл завершается и программа выводит сообщение о завершении ввода.

решение B

программа на Паскале, которая считывает несколько натуральных чисел с клавиатуры и выводит на экран их сумму:

program sum_numbers;

var

 num, sum: integer;

begin

 writeln('Введите натуральные числа. Ввод завершится, когда вы введете "0".');

 sum := 0; // инициализируем переменную sum нулем

 repeat

   readln(num);

   if num <> 0 then

   begin

     writeln('Вы ввели число: ', num);

     sum := sum + num; // добавляем число к сумме

   end;

 until num = 0;

 writeln('Сумма введенных чисел: ', sum);

end.

В этой программе также используется цикл `repeat...until`, который выполняется до тех пор, пока не будет введено число "0". Каждый раз, когда пользователь вводит число, программа проверяет, не равно ли оно "0". Если число не равно "0", то программа выводит его на экран и добавляет его к переменной `sum`. Если пользователь вводит "0", то цикл завершается и программа выводит сумму введенных чисел на экран.

Решение C

program count_even_numbers;

var

 num, count: integer;

begin

 writeln('Введите целые числа. Ввод завершится, когда вы введете "0".');

 count := 0; // инициализируем переменную count нулем

 repeat

   readln(num);

   if (num <> 0) and (num mod 2 = 0) then // проверяем, что число не равно 0 и является четным

   begin

     writeln('Вы ввели четное число: ', num);

     count := count + 1; // увеличиваем счетчик четных чисел на 1

   end;

 until num = 0;

 writeln('Количество введенных четных чисел: ', count);

end.

Решение D

program max_number;

var

 num, max: integer;

begin

 writeln('Введите целые числа. Ввод завершится, когда вы введете "0".');

 readln(num);

 max := num; // инициализируем переменную max первым введенным числом

 while num <> 0 do // выполняем цикл до тех пор, пока не будет введено число "0"

 begin

   if num > max then // если введенное число больше текущего максимума, обновляем максимум

     max := num;

   readln(num); // считываем следующее число

 end;

 writeln('Максимальное число: ', max);

end.

Объяснение:


pigopa6821: Ооооочень много, но решено всё!
smartmail1208: Спасибо!!!
Похожие вопросы
Предмет: Право, автор: aavvhell
Предмет: Английский язык, автор: savelijsannikov914
Cheerleading in Belarus Cheerleading is a fast-growing sport in Belarus. Competitive Cheerleading is gaining popularity for many reasons: it is a fun activity that combines all the athletic components of sport such as strength, power, flexibility and fitness, as well as the artistic and creative qualities of dance. Ice Girls cheer team are the Dinamo Minsk hockey club supporters and the first cheerleading team in Belarus. It was founded in 2004 by Julia Bashko, today's group leader, and consisted of 7 girls only. Over the years, the Ice Girls have grown in talent and size and become known as one of the top team supporters in the country. Today many schools and universities in Belarus offer cheerleading as an extracurricular activity and many of these teams compete against other cheerleading teams at regional and national levels. Belarusian Federation of Cheerleading is recognised by the Europian Cheerleading Union. Each year Belarusian cheerleading teams represent our country at the official European Cheerleading championship ECU. Belarusian Federation of cheerleading holds Open cheerleading championships in Belarus one of the most prestigious competitions in the cheerleading calendar. - In 2017 cheerleading in Belarus was recognised by National Olympic Committee of the Republic of Belarus.




1. What is the reason for the popularity of cheerleading? 2. Are there any regional cheerleading competitions in Belarus? What are their names? 3. How many members were there in the Ice Girls cheer team? What about now? 4. Is it possible for students in Belarus to take cheerleading as an extracurricular activity? Is it possible in the place where you study? 5. Do the Belarusian teams participate in any competitionsat international level? Which ones?​
Предмет: Математика, автор: Kolkagghh