(abc paskal)нужно полностью составить программу,от начала и до конца: "дан массив из 10 целых чисел.удалите из него первый элемент кратный 3 "

272

410

Посмотреть ответы 2

Ответы на вопрос:

Vedma1338

Информатика

4,4(26 оценок)

Var a: array [1..10] of integer; i,p: integer; begin for i: =1 to 10 do begin a[i]: =random(10); if (a[i] mod 3 = 0) and (p=0) then p: =i; end; writeln(a); for i: =p to 9 do a[i]: =a[i+1]; a[10]: =0; writeln(a); end.

roman81rudi

Информатика

4,7(42 оценок)

Если число должно делиться одновременно на 7 и 13, то оно должно делиться на произведение этих чисел, т.е. на 91. первым таким числом будет 91 и с него нужно начинать перебор. на самом деле понятно, что следующее число будет равно 91+91, т.е. 91×2, за ним последует 91× и сумму легко найти без компьютера и программы. что в очередной раз показывает, насколько составители бездумно относятся к своему творчеству. условие есть условие. начнем с 91 и будем последовательно перебирать все числа до 500. var i,s: integer; begin s: =0; for i: =91 to 500 do if i mod 91 = 0 then s: =s+i; writeln(s) end. результат 1365