Дерево-слух- можно узнать ветренно сегодня или нет.
Както-так...
#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Ответ:ссылку на контрольную скинь
Объяснение:
Количество подписчиков к концу шестой недели:
1+2+4+8+16+32 = 63
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.