1. Информатика
  2. Pascal найти сумму всех

Pascal найти сумму всех двухзначных чисел, которые кратны трём.

Topergggg Topergggg    3   29.05.2019 02:10    1

Ответы
shaluni2005 shaluni2005  26.06.2020 23:04
Uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Shivan2002 Shivan2002  26.06.2020 23:04
Uses crt;
var i,sum:integer;
begin
     sum:=0;
     for i:=10 to 99 do
         if i mod 3=0 then sum:=sum+i;
     writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
thgWedMwe thgWedMwe  30.11.2021 18:30
Самые важные устройства компьютера и их функции когда текст написан в, тогда его можно распечатать на: сенсорном экране, принтере, указатели или наушникахчтобы просмотреть...
alisavakhnina1 alisavakhnina1  30.11.2021 18:29
Какое условие должно выполняться для эффективной работы БД? Непротиворечивости данныхОбъективности данныхДостоверности данных...
v1k2 v1k2  30.11.2021 18:29
сообщение на тему электронный этап вычислительной техники (когда начался, когда закончился, какие инструменты были)...
Nastena102002 Nastena102002  30.11.2021 18:27
Упростить логические выражения 1) (x ∨ у) ˆ (х ∨¬ у) ˆ (¬ z ∨ у) 2) not x and not y or x and not y or x and y 3) MAX(MIN(x,y),MIN(y,z),MIN(INV(x),z)) 4) НЕ ((НЕ x...
Arina111933 Arina111933  12.07.2019 22:40
111010001 + 110111 сложить в двоичной системе, 101010011 умножить на 11111 в двоичной системе...
hohlovm71 hohlovm71  12.07.2019 22:40
1) во сколько раз увеличивается информационный объём страницы текста при его преобразовании из кодировки windows (таблица кодировки содержит 256 символов) в кодировку...
Димончик111111 Димончик111111  12.07.2019 22:40
Сколько бит информации содержит сообщение объемом 512 байт ?...
dimas1410 dimas1410  05.06.2019 11:40
Отрицанием высказывания ¬а& в ∨ с: а)a ∨ ¬в ∨ ¬cb б) ¬а & ¬с ∨ ¬в & с в) ¬в & с ∨ ¬а & с г) а & ¬с ∨ ¬в & ¬с 2)логическое выражение a...
SwanBlack SwanBlack  12.12.2021 13:12
Упростить логические выражения....
superutkanosska22 superutkanosska22  12.12.2021 13:13
Дан массив D[15], заполненный целыми числами из диапазона от 1000 до 2000. Написать программу, которая будет заменять элементы массива с нечетными номерами на квадраты...

Популярные вопросы