Регистрация
Leron462
04.12.2021 12:27
Информатика
Есть ответ 👍

Решить с информатики нужно написать программу. дано 2 числа a і b. поміняти їх значення місцями двома способами: 1) з використанням третьої змінної; 2) за арифметичних операцій.

226
500
Посмотреть ответы 2

Ответы на вопрос:

паро8
паро8
4,8(19 оценок)
Var a,b,c: integer; begin write('a = '); readln(a); write('b = '); readln(b); //1 c: =a; a: =b; b: =c; writeln('a = ',a,' b = ',b); //2 a: =a+b; b: =a-b; a: =a-b; writeln('a = ',a,' b = ',b); end. пример: a = 5 b = 8 a = 8 b = 5 a = 5 b = 8
yeghiazaryanhap01lbi
yeghiazaryanhap01lbi
4,4(66 оценок)

5 9 13 17 21 25 29 33 37 41 45 49

 

var sum, i, s: integer;  //обыявляем необходимые переменные

//sum - сумма, i - кол-во слогаемых, s - само слогаемое

begin  //начало

 sum := 0; i := 1; s := 5;  //первое слогаемое = 5

 repeat

   sum := sum + s;  //к сумме прибавляем слагаемое

   s := s + 4;  //увеличиваем слогаемое

   i := i + 1;   //увеличиваем кол-во слогаемых

 until (sum = 324);  //выход когда сумма равна 324

 writeln ('Слогаемых: ');  // выводим кол-во слогаемых

 write (i);

end.  //конец

Популярно: Информатика