tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1)дано число n . вывести
1)дано число n . вывести 2 в степени 5 2)найти сумму натуральных чисел от 35 до 132
arinaschool1
1 04.06.2019 04:00
1
Ответы
s1072966
05.07.2020 08:49
Var n:integer;
begin
readln(n);
writeln(power(2,n));
end.
var i,s:integer;
begin
for i:=35 to 132 do
s+=i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
jejixex8
16.05.2020 15:15
Чому дорінює S після виконання i=Integer; A,S:= O;Fr i := 1 To 5 Do begin A:= A +0.2; S+A end;...
Razzey
05.05.2019 15:26
Напишите программу, которая из двух чисел, одно из которых — чётное, а другое — нечётное, определяет и выводит на экран нечётное число....
Alena26vl
05.05.2019 15:28
Написать программу для ввода пользователя стороны квадрата и вывести...
Снежка411
05.05.2019 15:28
Цикл типа пока. 1) дана последовательность операторов: а: =1; b: =2; while a+b 10 do begin а: =а+1; b: =b+1; end; s: =a+b сколько раз будет повторен цикл и какими будут значения переменных...
dmitrijezhov20
05.05.2019 15:35
95 . решите всё. №1. файл размером 1500 кбайт передаётся через некоторое соединение в течение 75 секунд. определите размер файла (в кбайт), который можно передать через это соединение...
lili2003love12
05.05.2019 15:35
Выполнить на языке паскаль, на паскале двумерный массив статический. дана прямоугольная таблица вещественных чисел. среди сумм элементов строк найти значение максимальной....
Лемо4ик
23.03.2019 12:07
Надо сделать шестиконечную звезду в phytone....
marcella6112000
23.03.2019 12:02
Написать код на python. даны два целых числа a и b (с a ≤ b). выведите все числа от а до б включительно. если вы напишите 10. ваш вывод должен быть 12345678910....
nastgoliakova
23.03.2019 11:27
Var k, s: integer; begin s: =1; k: =0; while k 13 do begin s: =s+2*k; k: =k+4; end; write(s+k); end. нужно составить уравнение/неравенство для решения для лучшего понимая как можно...
asy23
23.03.2019 11:19
Спо информатике. в программе pascal abc...
Популярные вопросы
В 1535 году был заключён Франко - Турецкий Договор о мире, дружбе и торговле создавший...
3
складіть рівняння реакцій за до яких можна здійснити такі перетворення ...
3
К каким событиям привела работорговля в США?...
2
Урок 8 при каких значениях m и n график уравнения m x + n y равно 7 проходит через...
2
1. Какой сезонный отпуск Генри любит больше всего? ВеснаC. Осень2. Осень - любимое...
2
Инициаторами подписания в 1928г. договора об отказе от войны как средства политики...
2
Суретте берілген табиғат ресурсын, игеру кезінде туындайтын экологиялық проблемаларды...
3
Как изменяется энергия пули при вылете из ружья? Объясните причину изменения энергии....
3
9. Кого з персонажів фантастичних творів ви найбільше запам ятали й чому?...
3
Төменде берілген суреттің бірін таңдап, әлеуметтік инфрақұрылымының элементін сипаттап,...
3
begin
readln(n);
writeln(power(2,n));
end.
var i,s:integer;
begin
for i:=35 to 132 do
s+=i;
writeln(s);
end.