Похожие вопросы
- кто может помочь с информатикой?ну?
- Про что можно писать ZPD по информатике?возьми пиратство, очень актуальная тема в наше время
- А в 12 классе информатика есть?Информатика закончилась в 10, а дальше зависит от программы обучения и уже программирование! Поэтому,если в 11 была значит в 12 тоже будет!
- может кто то помочь с информатикой?Задание по паскалюprogram 1to20;
var i,j : integer;
begin
i:=0;
for j:=1 to 20 do begin
i:=i+j;
end;
writeln(i);
end.
не помню точно, как там всё писалось, но примерно так - задание по информатике.св внутри.мануал, руководство
- Сколько бит в слове информатика?88 бит если это ASCII(1 байт=8 бит = буква), если UNICODE то там буква занимает 2 байта(16 бит), соответственно 176 бит
- Кто может помочь? Вопрос по информатике (инсайд)NTFS
Она вообще почти во всё лучше чем FAT32.
А FAT16 вообще забей, древняя система, либо для мелких носителей. - Любили ли вы такой предмет как информатика?
- У кого есть теория по Информатике?! я тебе могу теорию рассказать...и практику показать ))
- кто знает информатику????турбо паскаль???см.вн.1)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if A mod 5 = 0 then Inc(D,A);
if B mod 5 = 0 then Inc(D,B);
if C mod 5 = 0 then Inc(D,C);
writeln('summa 4isel kratnije 5-ti: ',D);
readln;
end.
2)
var A,B,C,D:integer;
begin
D:=0;
writeln('vvedite 3 4isla 4erez probel(Naprimer: 5 10 30)');
ReadLn(A, B, C);
if (A>=3) and (A<=10) then Inc(D,A); // проверка что число лежит в интервале [3;10]
if (B>=3) and (B<=10) then Inc(D,B);
if (C>=3) and (C<=10) then Inc(D,C);
writeln('summa 4isel v intervale ot 3 do 10(s 10 vklu4itelno): ',D);
readln;