1. В Паскале: Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1,
1. В Паскале: Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.
2. В Паскале: Ввести радиус круга и сторону квадрата. У какой фигуры площадь меньше?
1. Var a,b,c:integer; Begin Write('Введите а, в, с: '); Readln(a,b,c); if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,', ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c)); End.
2. Var r,a:integer; Begin Write('Введите радиус круга '); Readln(r); Write('Введите сторону квадрата '); Readln(a); writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a)); if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата'); End.
Ботаника- Это раздел науки Растениях;Земледельцы-это люди которые занимаются работой связанной с землёй.Животноводы-Это люди которые выращивают домашний скот.НУ как то так
Попробуем найти, какое основание системы счисления нам может подойти. Если складывать все три возраста "в столбик", начинаем с последней цифры. 3+4+1=8. Но в результате записана не восьмерка, а тройка. Это означает, что получилось 13, а единица пошла в следующий разряд. 13 отличается от 8 на 5. Это и есть основание системы счисления.
Если при решении такой задаче остается время, можно сделать проверку. Сложим все три возраста, считая систему счисления пятеричной. Получается 343, следовательно, решение верное.