Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. пример: введите число: 123 да пример: введите число: 1234 нет z2. ввести a и b и вывести сумму квадрата и куба четных чисел от a до b. пример: введите границы интервала: 4 6 ответ: 4: 16 + 64 = 80 6: 36 + 216 = 252 z3. ввести натуральное число n и найти сумму всех чисел от 1 до n (1+2+3++n). пример: введите число слагаемых: 100 сумма чисел от 1 до 100 равна 5050 z4. ввести натуральное число и вывести в строчку все числа от этого числа до 1. пример: введите натуральное число: 4 ответ: 4 3 2 1 z5. с клавиатуры вводится число n. на экран выводятся числа в виде «елочки». написать программу, выводящую на экран последовательно "елочку" по заданному образцу. пример работы программы при n=5: введите число n: 5 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5
Max04032003
1
05.08.2019 13:20
9
Другие вопросы по теме Информатика
Покемончик12346
18.03.2019 14:26
леомир
26.11.2020 09:00
vaynasmirnov021
26.11.2020 09:01
mun7890
26.11.2020 09:01
вопросник45
26.11.2020 09:01
впапорпорпрорп
26.11.2020 09:01
grasdas
07.06.2019 20:00
катюха134567889000
07.06.2019 20:00
Kirill0812
07.06.2019 20:00
Популярные вопросы
- Послушай прочитай стихотворение и выучи его наизусть naughty ghosts...
1 - Впервом магазине цену товара снизили сначала на 10%, а затем - на 15%....
3 - 1)диалектизмы примеры 2)профессионализмы примеры 3)термины примеры 4)жаргонизмы...
1 - Найдите корень уравнения : 1) а: ( 8+5х )=6 при а=108 2) 18*( в-7х )=90...
2 - Выписать этапы антигитлеровской коалиции...
1 - Груз массой 100 грамм свободно падает с высоты 10 м если нулевой уровень...
1 - Складiть i запишiть речення зi словами черговий(прикметник) и черговий...
2 - Какой князь в древней руси был последний...
3 - Нитрат бария, массой 45 грамм, вступил в реакцию с сульфатом калия. найдите...
3 - Внастоящее время ученые выделяют. 1)5рас 2) 6 рас. 3)3 расы 4)4расы...
1
var a: integer;
Begin
readln (a);
if (a <1000) and (a>99) then writeln ( 'да')
else writeln('нет');
End.
Program z2;
var a, b : integer;
Begin
readln ( a, b);
writeln (a,': ',(a*a) +(a*a*a));
writeln (b,': ',(b*b) +(b*b*b));
end.
program z3
var n, i, k: integer;
Begin
readln ( n);k:=0;
for i : 1 to n do
k:=k+i;
write (k);
end.
program z3
var a,i: integer;
Begin
readln ( a );
for i: a downto 1 do
write( I, ' ');
End.