<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
<u>Пример</u>
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63
#include <stdio.h>
int
main ()
{
int a, b, c, d=1;
scanf ("%d", &a);
scanf ("%d", &b);
scanf ("%d", &c);
if (b>a) {a=b;d=2;}
if (c>a) {a=c;d=3;}
printf("The largest entered number is number %d and is equal to %d", d, a);
return 0;
}
A := 26;
b := 6;
b := a mod b + 4 = 26 mod 6 + 4 = 2 + 4 = 6;
c := a mod b + 1 = 26 mod 6 + 1 = 2 + 1 = 3;
Ответ: 3.
tср=(t₁+t₂+t₃)/3
tср=(15+18+13)/3=46/3=15 мин = 15 минут и 20 секунд