{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.

0 0

4 года назад

Помогите, пожалуйста, составить программу в Паскале на вычесление площади и периметра прямоугольника по его сторонам! Заранее сп

ChronosX [17]

Program Ploshad_Priamougolnika;
Vara,b : byte; {стороны прямоугольника}
S : word; {вычисляемая площадь прямоугольника}
BeginWriteln ('Введите значения сторон прямоугольника');
Readln (a,b);
S:=a*b;
Writeln ('Площадь прямоугольника =',S);
End.

0 0

3 года назад

Какими значками изображали египтяне слова"солнце","идти","хлеб",рот"?

Viktor2505 [10]

Соответственно: Ра, Ии, Та и Ро.

0 0

3 года назад

в гараже 750 автомобилей у грузовых по 6 колес, у легковых 4 по колеса. сколько и каких автомобилей в гараже если всего 3024 кол

Зайцева Галина Ге... [20]

пусть в гараже х грузовых машин, тогда 750-х легковых.

6х+(750-х)*4 = 3024

6х+3000-4х = 3024

2х=24

х=12

ответ: грузовых машин 12, легковых - 738

0 0

4 года назад