// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=a+b+c; var k:=Trunc(sqrt(s)); if k*k=s then Writeln('Сумма чисел - квадрат ',k) else Writeln('Сумма чисел не является квадратом целого') end.
Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=power(a*b*c,1/3); if s=int(s) then Writeln('Среднее геометрическое - целое число') else Writeln('Среднее геометрическое - нецелое число') end.
Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число
Сегодня, интернет есть почти в каждом доме. В интернете можно найти много очень полезной информации для учебы или для чего-нибудь другого. Многие люди смотрят в интернете фильмы и играют в игры. Также, в интернете можно найти работу или даже новых друзей. Интернет не терять связь с родственниками и друзьями, которые живут далеко. Благодаря интернету с ними можно связаться в любую минуту. Мама очень часто готовит вкусные блюда, которые нашла в интернете. Еще, интернет и тем, кто любит читать, но не имеет возможности часто покупать новые книги.
С одной стороны – интернет является очень полезным, потому что содержит очень много разной информации. В интернете можно найти все, что интересует. Но иногда, интернет становится злом и может принести вред. Если человек проводит в интернете слишком много времени, то может не успевать с остальными делами. Поэтому, нужно контролировать время, которое проводится за интернетом. Еще, очень многие проводят время в интернете вместо того, чтобы погулять с друзьями на улице. Наверное, именно поэтому, родители не разрешают мне проводить за интернетом все свободное время.
Но, все-таки преимуществ у интернета намного больше, чем недостатков. Есть очень много полезных сайтов, которые в учебе. Еще, лично мне, очень нравится общаться в интернете с теми, у кого похожие увлечения. Например, я люблю фотографировать и поэтому зарегистрировалась на нескольких сайтах фотолюбителей. Участники сайта выкладывают свои работы, подсказывают и новичкам.
Так что, интернет является отличным во многих ситуациях, нужно только уметь находить информацию. Также, важно не ставить интернет на первое место и не забывать о реальном общении и о занятиях спортом.
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=a+b+c;
var k:=Trunc(sqrt(s));
if k*k=s then Writeln('Сумма чисел - квадрат ',k)
else Writeln('Сумма чисел не является квадратом целого')
end.
Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=power(a*b*c,1/3);
if s=int(s) then Writeln('Среднее геометрическое - целое число')
else Writeln('Среднее геометрическое - нецелое число')
end.
Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число
Объяснение:
Сегодня, интернет есть почти в каждом доме. В интернете можно найти много очень полезной информации для учебы или для чего-нибудь другого. Многие люди смотрят в интернете фильмы и играют в игры. Также, в интернете можно найти работу или даже новых друзей. Интернет не терять связь с родственниками и друзьями, которые живут далеко. Благодаря интернету с ними можно связаться в любую минуту. Мама очень часто готовит вкусные блюда, которые нашла в интернете. Еще, интернет и тем, кто любит читать, но не имеет возможности часто покупать новые книги.
С одной стороны – интернет является очень полезным, потому что содержит очень много разной информации. В интернете можно найти все, что интересует. Но иногда, интернет становится злом и может принести вред. Если человек проводит в интернете слишком много времени, то может не успевать с остальными делами. Поэтому, нужно контролировать время, которое проводится за интернетом. Еще, очень многие проводят время в интернете вместо того, чтобы погулять с друзьями на улице. Наверное, именно поэтому, родители не разрешают мне проводить за интернетом все свободное время.
Но, все-таки преимуществ у интернета намного больше, чем недостатков. Есть очень много полезных сайтов, которые в учебе. Еще, лично мне, очень нравится общаться в интернете с теми, у кого похожие увлечения. Например, я люблю фотографировать и поэтому зарегистрировалась на нескольких сайтах фотолюбителей. Участники сайта выкладывают свои работы, подсказывают и новичкам.
Так что, интернет является отличным во многих ситуациях, нужно только уметь находить информацию. Также, важно не ставить интернет на первое место и не забывать о реальном общении и о занятиях спортом.