Зададим такое условное форматирование для ячеек B4:B15, чтобы те из ячеек, значения ставки доходности в которых меньше средней доходности 2,8, выделялись светло-красным цветом, а текст- красным цветом. Для этого выделим диапазон ячеек B4:B15. Для использования условного форматирования применяем кнопку Условное форматирование на панели Стили ленты Главная. Далее выбираем команду Правила выделения ячеек и Меньше
begin clrscr; repeat Write('Выберите фигуру (1-квадрат, 2-прямоугольник)'); Readln(n);
case n of 1: begin write('Сторона квадрата='); readln(a); Write('S=', a * a); end; 2: begin write('Стороны прямоугольника='); readln(b, a); Write('S=', b * a); end; else exit; end; until false; end.
1. "Традиционный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: longint): longint; begin while a <> b do if a > b then a := a - b else b := b - a; NOD := a end;
var f: Text; tNOD: longint;
begin Assign(f, 'input.txt'); Reset(f); if not Eof(f) then Readln(f, tNOD); var n: longint := 1; while (not Eof(f)) and (n > 0) and (tNOD > 1) do begin Readln(f, n); if n <> 0 then tNOD := NOD(tNOD, n) end; Close(f); Assign(f, 'output.txt'); Rewrite(f); Writeln(f,tNOD); Close(f) end.
2. "Современный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: integer): integer; begin while a <> b do if a > b then a -= b else b -= a; Result := a end;
var tNOD: integer := 0; n: integer;
begin foreach var sn in Readlines('input.txt') do begin n := StrToInt(sn); if tNOD = 0 then tNOD := n else if n = 0 then break else tNOD := NOD(tNOD, n); end; WriteAllText('output.txt', IntToSTR(tNOD)); end.
Пример файла input.txt находится во вложении, контрольный результат 4096
Зададим такое условное форматирование для ячеек B4:B15, чтобы те из ячеек, значения ставки доходности в которых меньше средней доходности 2,8, выделялись светло-красным цветом, а текст- красным цветом. Для этого выделим диапазон ячеек B4:B15. Для использования условного форматирования применяем кнопку Условное форматирование на панели Стили ленты Главная. Далее выбираем команду Правила выделения ячеек и Меньше