PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.

0 0

1 год назад

Дано 4 значное число. Определить , является ли сумма его цифр четным?

жанжак [166]

Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.

0 0

4 года назад

Прочитать ещё 2 ответа

1. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по

Сергей36-666

1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.

2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.

0 0

4 года назад

Кто понимает информатику 9 класс. массивы. помогите вставить в таблицу а[i]

AleRz [89]

100,1,4,9,15,25,36,49,64,81

0 0

4 года назад