Информатика, вопрос опубликован 03.03.2019 07:55 Апостол16

Нужно написать на языке паскаля. 1) дано четырёхзначное число. определить равна ли сумма двух первых его цифр сумме двух его последний цифр. 2 найти произведение всех целых чисел от а до 20 ( значение а вводится с клавиатуры, 0< =a< =50)

Ответы
Ответ добавил: Гость

n - входной параметр программы. нужно посчитать сколько действий выполняет программа в зависимости от n.

например, если программа выполняет ограниченное количество действий - вне зависимости от n она будет считаться конечное время. а если есть какие-нибудь циклы - время выполнения программы будет расти в зависимости от параметра.

 

пример 1: программа вычисления площади квадрата по его стороне.

два действия - перемножить два числа и вывести результат. f(n) = 2;

 

пример 2: программа вычисления факториала:

присваиваем результату 1

сравниваем n< 2.

если верно - печатаем результат и выходим

иначе результат : = результат * n

      n: =n-1

и снова на сравнение

 

здесь f(n) = 1{начальное присвоение} + 3(n-1){сравнение и присвоения в цикле, который выполняется n-1 раза} + 1 {вывод результата} = 3n - 1

т.е время работы программы линейно возрастает при увеличении n

Ответ добавил: Гость

program z;

var a,b,a: real;   {при желании можна real поменять на integer }

begin

writeln ('vvedit a i b');

readln (a,b);

if a< b then begin

  c: =a;             {3-я переменная нужна чтобы не потерять неременную a} 

  a: =a*b;

  b: =b+c;

  writeln (a,b);       {вывод даных}

readln                 {задержка экрана}

end;

if a> b then begin   {neвкоем случае не менять эту строчку на "else"}

  c: =b;

  b: =a*b;

  a: =a+c;  

writeln (a,b);

readln  

end   {перед "end" точка з запятой не обязательная}

end. 

Ответ добавил: Гость

program ad;

var num, f, s: integer;

begin

readln(num);

f: = num div 10;

s: = num mod s;

if f> s then

  writeln(f-s);

else

  writeln(s-f);

end.

Ответ добавил: Гость

1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.

Больше вопросов по информатике