var sum, k, i: integer;
begin readln (k); while k > 0 do begin sum : = sum + k mod 10; //прибавляем к сумме последнюю цифру в числе k k : = k div 10; //убираем из k эту последнюю цифру end; writeln(sum); end.
var a, b, c: integer;
begin readln (a); readln (b); readln (c); if + b) > c) and ((a + c) > b) and ((c + b) > a)) then //у треугольника сумма двух сторон больше третьей стороны writeln('да') else writeln ('нет'); end.
const n = 20;
var a: array [1..n] of integer; i, k, sum, s: integer; begin for i : = 1 to n do begin a[i] : = random(11); //заполняем sum : = sum + a[i]; //сумма всех эл-тов end; for i : = 1 to n do write(a[i], ' '); //выводим writeln; //переход на новую строку writeln(sum); readln(k); for i : = 1 to n do if ((a[i] mod k) = 0) then s : = s + a[i]; //сумма эл-тов кратных k writeln(s); end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите сообщение на тему "информационное общество"