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

пиро3 пиро3    2   04.09.2019 19:02    1

Ответы
Bigdaddypro100 Bigdaddypro100  09.09.2020 18:52
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика