// PascalABC.Net procedure RectangleSquare; var a,b:double; begin Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b); Writeln('Площадь прямоугоьника равна ',a*b) end;
var i:byte; begin for i:=1 to 3 do RectangleSquare end.
Тестовое решение: Введите через пробел длины сторон прямоугольника: 3 7 Площадь прямоугоьника равна 21 Введите через пробел длины сторон прямоугольника: 12.4 15.8 Площадь прямоугоьника равна 195.92 Введите через пробел длины сторон прямоугольника: 14 12.5 Площадь прямоугоьника равна 175
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end; var i,k :integer;begin write('Введите k: '); readln(k); for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
54;34;21;56;45;98;76;66;19;543;713;82;341;745;201;1295;✓
Объяснение:
Думаю я прав