Var
sum, x : integer;
begin
sum := 0;
repeat
read (x);
if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
until x = 0;
write (sum);
end.
Microsoft word который вместе с офисом
В общем делятся на три группы:
ПЗУ, ОЗУ и носители
Примеры:
Жесткий диск (внешний и внутренний)
Диск
Флешка
Карт ридер
#include <iostream>
using namespace std;
int main()
{
int n, k;
<span> cout << "Введите число разрезов ", cin >> n, cout << "\n";</span>
k = (n*(n+1))/2 + 1;
cout << "Общее число кусков пирога равно " << k;
return 0;
}
Не трундая задача. Приступим.
Пусть а - первое число, б - второе число, с - третье число.
Четное число - 2n
If (a+b+c) div 2 = 0 then writeln ('Их сумма четное число') else writeln ('Их сумма нечетное число');