Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
Виды информации:
1. Текстовая - представленная на каком-либо из существующих языков, например, book - английский язык.
2. Числовая - представленная в виде цифр, например, 1,2,3...
3. Графическая - картины, фотографии, чертежи, схемы и т. д.
4. Звуковая - все, что слышит человек, например, человеческая речь, музыка, пение птиц.
<span>5. Видеоинформация - последовательность изображений, например, фильмы, мультфильмы.</span>
Var
a,b,c:integer;
begin
Write('Введите три целых числа: '); Readln(a,b,c);
if a>b then
if b>c then Writeln(a*b) else Writeln(a*c)
else
if a>c then Writeln(a*b) else Writeln(b*c)
end.
<em><u>Тестовое решение:</u></em>
Введите три целых числа: 5 -2 7
35
<span>Сидерический год <span>обусловлен движением Земли вокруг Солнца</span>.</span>
По моему мнению здесь 26 треугольников еще один забыл обратный в центре, итого 27