Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

Var i,s: integer; begin for i: =10 to 50 do if (i mod 3 = 0) or (i mod 5 = 0) then s+=i; writeln(s); end.

Год создания первого компьютера - 1938 год, машина z1,  инженер  конрад цузе.  первым функционирующим программируемым компьютером принято считать z3(1941 год) этого же инженера. год создания первого отечественного компьютера- 1951 год,  мэсм ,  разработана  группой  лебедева   в  киеве. год открытия радиосвязи- 1995 год, изобретатель  а. с. попов год первого полета человека в космос- 1961 год, ю. гагарингод принятия христианства на руси- 988 год.год первого упоминания в летописи о москве- 1147 год, летопись "москва"год начала великой отечественной войны-  1941 год,  год запуска первого искусственного спутника земли-  1957 год,    «спутник-1», год открытия колумбом америки-  1492 год.

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.