2) 2 км 425 м - 8 26 м 85 см •7 18 ц 02 кг - 4 1 т 250 кг - 8 230 см2. 4 190 мм2,5 - id1503622820200510 от айдана152 10.05.2020 16:36

Question

Информатика: 2) 2 км 425 м - 8 26 м 85 см •7 18 ц 02 кг - 4 1 т 250 кг - 8 230 см2. 4 190 мм2,5​

айдана152 · Accepted Answer

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

2) 2 км 425 м - 826 м 85 см •718 ц 02 кг - 41 т 250 кг - 8230 см2. 4190 мм2,5​