Решите задачи в Pascal ABC. 1.Напечатать слова,которые начинаются на буквы('M','N','Z')
2.Дан текст.Создать множество букв,которые входят в каждое слово.
3.Дан текст.Создать множество букв,которые входят в одно слово.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
YDA2007
08.05.2021 20:40

Писать код можно в любой среде разработки: SharpDevelop, Microsoft Visual Studio, и другие - от них ничего не зависит для новичка.

Если Вы вообще ни разу не писали на C#, имеет смысл почитать какие-нибудь книги или онлайн учебники. Для Вашей задачи будет достаточно хотя бы узнать как писать программу, выводящую "Hello World" на экран и узнать о базовых типах переменных.

Приведу пример программы "Hello World":

using System;

class Program

{

   static void Main()

   {

       Console.WriteLine("Hello World");

   }

}

В этой программе новичку стоит только понимать, что программа выполняется внутри фигурных скобок, метода Main.

Дальше узнайте, что для хранения вещественных чисел используется тип переменных double.

А потом наберите в интернете "как округлять double до нужного числа знаков после запятой c#" или типа того.

В общем, когда Вам сказали найти ответ в интернете, имелось ввиду в поисковике, а не задавать вопрос на форуме.

0,0(0 оценок)
Ответ:
Ерко365
06.04.2023 20:05

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота