Найти все равновеликие прямоугольники, стороны которых выражены целыми числами

@Warivx · Регистрация: 16.12.2015

Найти все равновеликие прямоугольники, стороны которых выражены целыми
числами a и b, а площадь равна S (a и b принадлежат интервалу от 1 до 20, а S
вводится с клавиатуры). Так же представить это на языке С#

@Xo6ut · 16.01.2016, 19:37

Pascal

var
a,b,s:integer;
writeln('vvedite s');
readln(s);
for a=1 to 20 do
for b=1 to 20 do
if a*b=s then writeln('a=',a,' b=',b);
readln;
end.

@schoolteacher · 17.01.2016, 09:45

Pascal

program z1640023;
 var a,s:integer;
begin
 writeln('Введите s=');
 readln(s);
 for a:=1 to 20 do
  if s mod a=0
   then writeln('a=',a,' b=',s div a);
end.

Добавлено через 8 минут
Не успел сохранить, правильный вариант:

Pascal

program z1640023;
 var a,s:integer;
begin
 writeln('Введите s=');
 readln(s);
 for a:=1 to 20 do
  if (s mod a=0) and (s div a>0) and (s div a<21)
   then writeln('a=',a,' b=',s div a);
end.

Добавлено через 10 часов 8 минут

Найти все равновеликие прямоугольники, стороны которых выражены целыми числами

Решение

Решение

@Warivx 0 / 0 / 0 Регистрация: 16.12.2015 Сообщений: 15
		1
	Найти все равновеликие прямоугольники, стороны которых выражены целыми числами 16.01.2016, 12:48. Показов 5539. Ответов 2 Метки нет (Все метки) Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S (a и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры). Так же представить это на языке С# 0

Опции темы