Надо написать Эссе по информатике 8 класса
что нового узнали, чему научи лись, какие были трудности..​

Ответы

program suma_chisel;

var s,i,t,c: integer;

begin

s: =0;

for i: =1 to 10000 do begin

t: =i mod 13;

c: =i mod 13;

if not(t=0) and not(c=0) then s: =s+1 end;

writeln ('nomer karti - ',s);

readln

end. //на паскале на правельность не проверял

 

 

 

 

 

 

 

 

 

 

 

 

 

  устройство хранения программ и данных 6букв

  наливаем 9 литров  из этого ведра дополна наливаем 5-литровое. осталось 4.  выливаем 5-литровое и опять переливаем из 9-литрового - те самые 4 литра.  наполняем 9литровое и отливаем в 5литровое до полна - 1 литр. остается 8 литров.  выливаем 5-литровое и опять наполняем его из 9-литрового. в 9-литровом осталось 3 литра

Найдено 1 ответ(ов)
Показать ответы
Знаешь ответ?

Похожие вопросы:

uses crt; var a: array [1..99, 1..99] of integer; i,j,n,m,x,z: integer; beginclrscr; randomize(); z: =0; writeln('введите количество строк'); readln(n); writeln('введите количество...Подробнее
ответов: 2
Популярные вопросы