Найти количество нечетных чисел, меньших X+Y, тремя циклами (for, while, repeat until)

@Kiborg69 · Регистрация: 25.10.2011

Студворк — интернет-сервис помощи студентам

Даны натуральные числа X и Y. Найти количество нечетных чисел, меньших X+Y.

@КонецСвета · 30.10.2011, 14:26

Решение с for:

Pascal

uses crt;
var x, y, k, i: integer;
begin
     writeln ('Введите нтуральные числа х и у');
     readln (x, y);
     k:=0;
     for i:=1 to (x+y-1) do
     if i mod 2=1 then k:=k+1;
     writeln ('Количество нечетных чисел, меньших ',(x+y),'=', k);
end.

Решение с while:

Pascal

uses crt;
var x, y, k, i: integer;
begin
     writeln ('Введите нтуральные числа х и у');
     readln (x, y);
     k:=0;
     i:=1;
     while i<(x+y) do
     begin
          k:=k+1;
          i:=i+2;
     end;
     writeln ('Количество нечетных чисел, меньших ',(x+y),'=', k);
end.

Решение с repeat:

Pascal

uses crt;
var x, y, k, i: integer;
begin
     writeln ('Введите нтуральные числа х и у');
     readln (x, y);
     k:=0;
     i:=1;
     repeat
          k:=k+1;
          i:=i+2;
     until i>=(x+y);
     writeln ('Количество нечетных чисел, меньших ',(x+y),'=', k);
end.

@Kiborg69 0 / 0 / 0 Регистрация: 25.10.2011 Сообщений: 45
		1
	Найти количество нечетных чисел, меньших X+Y, тремя циклами (for, while, repeat until) 28.10.2011, 00:53. Показов 11247. Ответов 1 Метки нет (Все метки) Даны натуральные числа X и Y. Найти количество нечетных чисел, меньших X+Y. 0

Опции темы