Question

Программирование с помощью Паскаль 1 сумма четных чисел до 1002 подчет гласных букв в слове мудрость 3 посчитать нечетные числа до 500Паскаль

Answer 1

1.                                          

program raf105;

var

 sum: integer;

begin

 for var i:=1 to 100 do

   if i mod 2 = 0 then sum:= sum + i;

 writeln('Вывод: ',sum);

end.

2.                                          

program raf105;

var

 glas: string:= 'аяоёуюыиэе';

 input: string;

 glasCount: integer;

begin

 write('Введите слово: ');

 readln(input);

 lowerCase(input);

 for var i:= 1 to length(input) do

   for var j:= 1 to length(glas) do

     if input[i] = glas[j] then inc(glasCount);

 writeln('Гласных букв: ',glasCount);

end.

3.                                          

program raf105;

var

 count: integer;

begin

 for var i:=1 to 500 do

   if i mod 2 <> 0 then inc(count);

 writeln('Вывод: ',count);

end.

PascalABC

Answer 2

Конечно! Вот пример программы на языке Паскаль для решения ваших задач:

1. Сумма четных чисел до 1002:

bashCopy code
program SumEvenNumbers;
var
  sum, i: integer;
begin
  sum := 0;
  
  for i := 2 to 1002 step 2 do
  begin
    sum := sum + i;
  end;
  
  writeln('Сумма четных чисел до 1002: ', sum);
end.

2. Подсчет гласных букв в слове "мудрость":

arduinoCopy code
program CountVowels;
var
  word: string;
  count, i: integer;
begin
  word := 'мудрость';
  count := 0;
  
  for i := 1 to length(word) do
  begin
    if lowercase(word[i]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'] then
      count := count + 1;
  end;
  
  writeln('Количество гласных букв в слове "мудрость": ', count);
end.

3. Подсчет нечетных чисел до 500:

arduinoCopy code
program CountOddNumbers;
var
  count, i: integer;
begin
  count := 0;
  
  for i := 1 to 500 step 2 do
  begin
    count := count + 1;
  end;
  
  writeln('Количество нечетных чисел до 500: ', count);
end.

Обратите внимание, что во всех трех программах используется цикл "for" для выполнения итераций от начального значения до конечного с определенным шагом (2 для четных чисел, 1 для нечетных чисел). Каждое значение проверяется и подсчитывается с помощью соответствующей переменной (sum, count).