1) Б и С 2) read(a) ввод в переменную с клавиатуры. a:=значение просто присваивание 3)
program a1; var a, b, c: integer; begin writeln('введите значения переменных a и b'); read(a, b); writeln((a+b+c)/3); end.
Название программы и переменной были одинаковые. Так нельзя. Переименовал программу
4) б)
program znanija; var a, b, h: integer; begin writeln('Введите a, b и h'); read(a, b, h); writeln('Площадь трапеции ',(a+b)/2*h); end.
5)
program znanija; var a, b, i: integer; begin
read(a);
for i:=1 to a do begin b:=b + a mod 10; a:=a div 10; end;
writeln(b); end.
Работает не только для трёхзначных. Но и двух, трёх, четырёх и т.д.
Larisaodinets5
19.02.2023
Компьютер, или электронно-вычислительная машина, в нашей жизни занимает все большее место. С его можно напечатать текст или произвести математические вычисления, составить расписание движения поездов и управлять технологическим процессом на заводе, изучать иностранные языки и руководить полетом космической станции, вести бухгалтерские расчеты и планировать бюджет страны, общаться с людьми, находящимися в любой точке земного шара, и вести тончайшие хирургические операции, послать письмо другу и сделать фотографию. Я могла бы еще долго перечислять возможности современных компьютеров. Но и из этого перечня ясно, что развитие современных технологий, управление экономикой и производством, образование и медицина, наука и космос сегодня немыслимы без компьютера.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Що дозволяє визначити які саме об'єкти буде містити слайд та б їх розміщення
2) read(a) ввод в переменную с клавиатуры. a:=значение просто присваивание
3)
program a1;
var a, b, c: integer;
begin
writeln('введите значения переменных a и b');
read(a, b);
writeln((a+b+c)/3);
end.
Название программы и переменной были одинаковые. Так нельзя. Переименовал программу
4) б)
program znanija;
var a, b, h: integer;
begin
writeln('Введите a, b и h');
read(a, b, h);
writeln('Площадь трапеции ',(a+b)/2*h);
end.
5)
program znanija;
var a, b, i: integer;
begin
read(a);
for i:=1 to a do
begin
b:=b + a mod 10;
a:=a div 10;
end;
writeln(b);
end.
Работает не только для трёхзначных. Но и двух, трёх, четырёх и т.д.