Өз аты-жөндерің экранға 6рет шығатын даи программа құрастырып, дәптерлеріңе жазыңдар

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

для матрицы 8*8

код

00111111

01000001

10000001

01000001

00111111

00010001

00100001

11000001

объем 8 байт

для символьного 1 байт в ascii

2 байта в unicode

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей