3 года назад

Прошуууу,помогите дам 29 баллов

Знания

Информатика

1 ответ:

Teresssa [7]3 года назад

0 0

мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу

Читайте также

Посчитать количество предложений в файле(тема:строковый тип данных).т.е написать программу

Bavon

Не работает с многоточием, если что.
var f:text; c:char; k:integer;
begin
k:=0;
assign(f,'input');
reset(f);
while eof(f)=false do
if eoln(f) then readln(f)
else
begin
read(f,c);
if (c='.') or (c='!') or (c='?') then k:=k+1;
end;
if not((c='.') or (c='!') or (c='?')) then k:=k+1;
close(f);
write(k)
<span>end.</span>

0 0

4 года назад

Дан условный оператор: if(a<16)theny:=aelsey:=a+3.Условием являетсяa<16y:=ay:=a+3все ответы верные

Оксана Владимировна

Условие - это a<16.

Операции присваивания - это не условие.

0 0

4 года назад

8. Заполните таблицу. bормации сом , Пример Стихотворение в учебнике Картина в музее Радиопередача Возраст. рост и вес человека,

cehlida [378]

Ответ:

1 текстовой выучить текст

2 рисунок. в рисовальной методике

0 0

3 года назад

Помогите написать программу в Паскале! Найти сумму 2^2 +2^3 + ...2^10 . Операцию возведения в степень не исполь- зовать. Последо

doter-crab

Во первых зачем тут числа Фибоначи?

На вход подается 2 числа: a,b где
2^a + 2^(a+1) + 2^(a+2) + ... 2^(b-2) + 2^(b-1) + 2^b

На выводе число - результат формулы выше при подстановке a и b

1 вариант через цикл, сложность O(n):

VAR
a, b, adder, sum, i: INTEGER;
BEGIN
READ(a, b);
adder := 1;
FOR i := 1 TO b DO
BEGIN
adder := 2 * adder;
IF (i >= a)
THEN
sum := sum + adder
END;
WRITELN(sum);
END.

2 вариант через побитовые сдвиги, сложность O(1):

VAR a, b: INTEGER;
BEGIN
READ(a, b);
WRITELN((1 SHL (b+1)) - (1 SHL (a)));
END.

0 0

1 год назад

Для чего нужно несколько моделей одного и того же объекта

martaa

Для большей точности и смотря какие модели

0 0

4 года назад