Question

Программа в Паскале.1.В классе А учеников. На «5» контрольную работу написали В учеников. Какой процент учеников написали контрольную работу на пять?2.Дано трехзначное число. Верно ли, что сумма первой и последней его цифр больше, чем сумма второй и третьей его цифр.3.Даны два числа. Если оба числа положительные, то найти их сумму, иначе вывести сообщение «условие не выполняется».Помогите срочно пожалуйста!!!

Answer 1

 3   var a,b:integer;s:integer;
begin
writeln ('vvedite a ');
readln(a);
writeln ('vvedite b');
readln (b);
if a or b>0 then s:=a+b
else writeln ('ne vernoe yslovie');
writeln(s);readln; end.

Answer 2

1. Для решения этой задачи можно использовать следующий алгоритм в программе на языке Паскаль:

var
  totalStudentsA, studentsWithGrade5: integer;
  percent: real;

begin
  write('Введите общее количество учеников в классе А: ');
  readln(totalStudentsA);

write('Введите количество учеников, написавших контрольную работу на "5": ');
  readln(studentsWithGrade5);

percent := (studentsWithGrade5 / totalStudentsA) * 100;

writeln('Процент учеников, написавших контрольную работу на "5": ', percent:2:2, '%');
  
end.

2. Для проверки условия можно использовать следующий алгоритм в программе на языке Паскаль:

var
  number, firstDigit, lastDigit, secondDigit, thirdDigit: integer;
  condition: boolean;

begin
  write('Введите трехзначное число: ');
  readln(number);

// Разделение числа на цифры
  firstDigit := number div 100;
  secondDigit := (number div 10) mod 10;
  thirdDigit := number mod 10;

// Проверка условия
  condition := (firstDigit + lastDigit) > (secondDigit + thirdDigit);

if condition then
    writeln('Сумма первой и последней цифр больше, чем сумма второй и третьей цифр.')
  else
    writeln('Сумма первой и последней цифр не больше, чем сумма второй и третьей цифр.');

end.

3. Для решения данной задачи можно использовать следующий алгоритм в программе на языке Паскаль:

var
  num1, num2, sum: integer;

begin
  write('Введите первое число: ');
  readln(num1);

write('Введите второе число: ');
  readln(num2);

if (num1 > 0) and (num2 > 0) then
  begin
    sum := num1 + num2;
    writeln('Сумма чисел: ', sum);
  end
  else
    writeln('Условие не выполняется.');

end.

Приведенные программы решают поставленные задачи. Вы можете скопировать их в среду разработки Pascal и выполнить для проверки.