const
a : array[1..10] of integer = (12, 5, 4, 1, 9, 7, 8, 2, 3, 2);
var k, _counterW, _counterS: integer;
begin
_counterS := 0;
_counterW := 0;
for k := 1 to 10 do
if (a[k] = 12) or (a[k] = 1) or (a[k] = 2) then
_counterW := _counterW + 1
else if (a[k] = 6) or (a[k] = 7) or (a[k] = 8) then
_counterS := _counterS + 1;
end;
writeln('Количество родившихся летом:', _counterS);
writeln('Количество родившихся зимой:',_counterW);
if _counterW > _counterS then
writeln('Зимой родилось большее количество учащихся!')
else if _counterS > _counterW then
writeln('Летом родилось большее количество учащихся!')
else
writeln('Летом и зимой родилось одинаковое число учащихся!');
end.
Вводим 200 Вывод 220
Объяснение:
var s, n, i: integer;
for i:=200 to 250 do //Создаём цикл, который будет прогонять
begin // значения S от 200 до 250
s:=i; // логичнее начинать i c 200 т.к. while работает
n := 100; // при условии, что s- 100 >= 100
while s - n >= 100 do
s := s + 20;
n := n + 40;
writeln(i, ' ',s) // вывод всех значений от 200 до 250
end; // выбираем нужный
const
a : array[1..10] of integer = (12, 5, 4, 1, 9, 7, 8, 2, 3, 2);
var k, _counterW, _counterS: integer;
begin
_counterS := 0;
_counterW := 0;
for k := 1 to 10 do
begin
if (a[k] = 12) or (a[k] = 1) or (a[k] = 2) then
_counterW := _counterW + 1
else if (a[k] = 6) or (a[k] = 7) or (a[k] = 8) then
_counterS := _counterS + 1;
end;
writeln('Количество родившихся летом:', _counterS);
writeln('Количество родившихся зимой:',_counterW);
if _counterW > _counterS then
writeln('Зимой родилось большее количество учащихся!')
else if _counterS > _counterW then
writeln('Летом родилось большее количество учащихся!')
else
writeln('Летом и зимой родилось одинаковое число учащихся!');
end.
Вводим 200 Вывод 220
Объяснение:
var s, n, i: integer;
begin
for i:=200 to 250 do //Создаём цикл, который будет прогонять
begin // значения S от 200 до 250
s:=i; // логичнее начинать i c 200 т.к. while работает
n := 100; // при условии, что s- 100 >= 100
while s - n >= 100 do
begin
s := s + 20;
n := n + 40;
end;
writeln(i, ' ',s) // вывод всех значений от 200 до 250
end; // выбираем нужный
end.
end.