Program test;
uses graphabc;
var i,x:integer;
begin write('Сколько досок для забора тебе нужно? = ');
readln(x);
for i:=1 to x do begin
line(50+i*50,400,50+i*50,200);
line(50+i*50,200,75+i*50,190);
line(75+i*50,190,100+i*50,200);
line(100+i*50,200,100+i*50,400);
line(100+i*50,400,50+i*50,400);
end;
end.
Esli bi A45 bilo to tak a tocho pravilnii est?3 poprobava mojno
Var
s,fam,nam:string;
begin
writeln('Vvedite imy i familiy:');
readln(s);
nam:=copy(s,1,pos(' ',s)-1);
fam:=copy(s,pos(' ',s)+1,length(s));
if nam[length(nam)]=fam[length(fam)-1] then writeln('Sovpadayut') else writeln('Ne sovpadayut');
write('Dly vyhoda nagmite Enter');
readln;
end.
1) "Алфавитный подход" - 14 разных симв. (включая пробел), => На 1 симв. -
=
бита
17 симв * 4 бита = 68 бит
2) 35 Разных симв. => На 1 симв. -
=
Бит
10 Симв. * 6 Бит = 60 Бит
3) 3(Стр.) * 40(Строк) * 25(Симв) = 3000 Символов всего, ответ 3000 * i, где i - количество бит для записи одного символа (Информации об алфавите в последнем номере не указано, посчитайте сами аналогично 1 и 2).
Это язык программирования (по мне так довольно лёгкий). Обычно изучают в школах. Для серьёзных, больших программ не используется.