Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2*3=6
512*128*6=393216
393216: 1024=384кб
var a: array[1..100] of integer;
begin
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
else a[i]: =2*random(100);
end.
есличто непонятно - пиши в сообщения, растолкую
тимофею
есть
кого
спросить
тему
var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Популярные вопросы