Question

Решите ! а не пишите какой-то бред решите хотя бы 10 ! 1. дано целое число n. написать программу, заменяющую его нулем, если число меньше нуля, и увеличивающую его на 4, если число неотрицательное. 2. даны целые числа a и b. написать программу, которая выводит число 1, если числа равны, и число 0 в противном случае. 3. даны целые числа a, в и с. написать программу, подсчитывающую количество неотрицательных чисел среди данных. 4. даны целые числа a, в и с. написать программу, подсчитывающую сумму положительных чисел среди данных. 5. даны числа a, в и с. написать программу, выводящую их в убывающем порядке. 6. даны целое трехзначное число n и целое число k. написать программу, подсчитывающую сумму тех цифр числа n, которые больше k. 7. дано натуральное число n. написать программу, подсчитывающую сумму 1+2+3+…+n. 8. даны натуральные числа а и в (в 9. дано натуральное число n. написать программу, выводящую на экран последовательность натуральных чисел от n до 1. 10. дано натуральное число n. написать программу для вычисления суммы . 11. дано натуральное число n. написать программу для вычисления суммы . 12. дано натуральное число n (n< 10). написать программу, для вычисления суммы вида 0,1+0,2+0,3+… (n слагаемых). 13. дано натуральное число n. написать программу, выводящую на экран последовательность квадратов всех чисел от 1 до n. 14. дано натуральное число n. написать программу, выводящую последовательность первых n нечетных чисел. 15. дано n натуральных чисел. написать программу, вычисляющую их среднее арифметическое. число n вводится перед всеми остальными. 16. дана последовательность целых чисел, заканчивающаяся нулем (в самой последовательности нулей нет). написать программу, которая подсчитывает количество чисел в последовательности. 17. дана последовательность целых чисел, заканчивающаяся нулем (в самой последовательности нулей нет). написать программу, которая подсчитывает количество четных чисел в последовательности (число 0 для вычисления результата считать не надо). 18. дана последовательность целых чисел, заканчивающаяся нулем и содержащая еще один нуль в произвольном месте. написать программу, которая подсчитывает количество чисел между нулями. 19. дана последовательность целых чисел, заканчивающаяся нулем (в самой последовательности нулей нет). написать программу, которая выводит последнее ненулевое число последовательности. 20. дано целое число n (> 0). если оно является степенью числа 3, то вывести true, если не является – вывести false. 21. дана последовательность целых чисел, заканчивающаяся нулем (в самой последовательности нулей нет). написать программу, находящую максимальное число последовательности. 22. написать программу, определяющую количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n (> 0). 23. дана последовательность целых чисел, заканчивающаяся нулем (в самой последовательности нулей нет). написать программу, выводящую все числа последовательности, кратные трем. 24. как и многие другие девочки, маша любит разные гадания. некоторое время назад маша узнала новый гадать на числах – для какого-нибудь интересующего ее натурального числа n надо посчитать сумму всех чисел, на которые n делится без остатка. маша не любит арифметику, и попросила вас написать программу, которая автоматизирует процесс гадания. ввод: натуральное число n (n ≤ 1000). вывод: сумма всех натуральных делителей числа n. 25. петя и катя – брат и сестра. петя – студент, а катя – школьница. петя кате по . он задумывает два натуральных числа x и y (x,y≤1000), а катя должна их отгадать. для этого петя делает две подсказки. он называет сумму этих чисел s и их произведение p. кате отгадать задуманные петей числа. ввод: два натуральных числа s и p, разделенные пробелом. вывод: два числа х и y, загаданные петей. числа следует вывести в порядке неубывания своих значений, разделенные пробелом. 26. даны два натуральных числа a и b. требуется найти их наибольший общий делитель (нод). ввод: натуральные числа a и b через пробел (a, b ≤ 109). вывод: нод чисел а и в.

Answer 1

1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.