//PascalABC.NET 3.2 cборка 1318
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a mod 5=0) and (c mod 5=0) and (b mod 5<>0) then
writeln(sqr(a),' ',sqr(b),' ',sqr(c)) else
if (a mod 5<>0) and (c mod 5<>0) and (b mod 5=0) then
writeln(a+10,' ',b+10,' ',c+10)
else
writeln((a+b+c)/3);
end.
Пример ввода:
15
5
34
Пример вывода:
18
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
А) Последствия событий 13 века: события этого века положили начало отстаиванию русских земель от стран 'Западной Европы; Золотоордын-ское иго нанесло огромный ущерб экономическому. политическому и культурному развитию Руси
б) Океан - главный хранитель воды, давно поражающий исследователей необычностью своих свойств. Воды пронизывают всю географическую оболочку и производил в ней разнообразную работу
в) Симбиоз - это взаимовыгодное отношение двух организмов. Плоские черви - паразиты
г) Всякий равносторонний треугольник есть равноугольный треугольник. Прямоугольник с равными сторонами есть квадрат
д) Русский язык - один из славянских языков. Пунктуация изучат знаки препинания
е) Пушкин - великий русский поэт. Достоевский - один из популярных писателей
<span>ж) Информатика зиждется на математике. Компьютер облегчил жизнь человека
</span>
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Повторение - это действие или последовательность действий, которые многократно повторяются (т.е. несколько раз).
Примеры.
1) пришить пуговицу
2) сбор яблок
3) подметание пола
4) наполнение бочки водой с помощью ведра
5) покраска забора
6) забивание гвоздя и т.п.