, , написать программу в паскале.дано трехзначное число, если последняя цифра кратна 3, то возвести ее в квадрат, если среднее число равно 0, то увеличить на 2 и вывести результат.
Var Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer; Begin Writeln('Enter rating'); Readln(Mat,Fizik,Geogr,Biolog,Fizra); Summ:=Mat+Fizik+Geogr+Biolog+Fizra; Writeln(Summ); end.
Сокращением дроби называется замена ее другой, равной ей дробью с меньшими членами, путем деления числителя и знаменателя на их общий делитель. Сокращать дроби можно последовательным сокращением на общие делители числителя и знаменателя. Задание. Сократить дробь Решение. Как видим, числитель и знаменатель заданной дроби являются четными числами, а поэтому и можно сократить на их общий делитель - 2: Аналогично, общим делителем полученных числителя 24 и знаменателя 44 есть число 4, а поэтому производим дальнейшее сокращение на 4: Полученные числа - 6 и 11 - уже являются взаимно простыми. Итак, после сокращения окончательно имеем: ответ.
CLS DIM n AS INTEGER INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n INPUT "Введите имя студента:", studentName(i) INPUT "Введите год рождения студента:", studentYearsOld(i) NEXT i PRINT FOR i = 1 TO n PRINT "Студент "; studentName(i) studentYrs = 2016 - studentYearsOld(i) IF studentYrs < 18 THEN PRINT "Лет до права голоса:"; 18 - studentYrs ELSEIF studentYrs >= 18 THEN PRINT "Студент уже имеет право голоса!" PRINT END IF studentYrs = 0 NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.
Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer;
Begin
Writeln('Enter rating');
Readln(Mat,Fizik,Geogr,Biolog,Fizra);
Summ:=Mat+Fizik+Geogr+Biolog+Fizra;
Writeln(Summ);
end.