Question

Нужно написать 4 программы в паскале! Хотя бы сколько нибудь спасибо!!!

Answer 1

Program 1;
Var a,b:Integer;
с:real;
begin
a:=6;
b:=7;
c:=b/a;
writeln('c',c:5:2);
end.

Answer 2

Конечно, я могу помочь вам написать четыре программы на языке Pascal. Вот некоторые идеи программ, которые вы можете реализовать:

1. Программа для вычисления суммы и разности двух чисел: ```pascal program SumAndDifference; var num1, num2, sum, difference: integer; begin writeln('Введите первое число: '); readln(num1); writeln('Введите второе число: '); readln(num2); sum := num1 + num2; difference := num1 - num2; writeln('Сумма: ', sum); writeln('Разность: ', difference); end. ```

2. Программа для вычисления среднего значения списка чисел: ```pascal program AverageCalculator; var count, sum, number: integer; average: real; begin writeln('Введите количество чисел: '); readln(count); sum := 0; for i := 1 to count do begin writeln('Введите число ', i, ': '); readln(number); sum := sum + number; end; average := sum / count; writeln('Среднее значение: ', average); end. ```

3. Программа для определения, является ли число простым: ```pascal program PrimeNumberChecker; var number, i: integer; isPrime: boolean; begin writeln('Введите число: '); readln(number); isPrime := true; for i := 2 to number - 1 do begin if number mod i = 0 then begin isPrime := false; break; end; end; if isPrime then writeln('Число является простым') else writeln('Число не является простым'); end. ```

4. Программа для перевода температуры из градусов Цельсия в градусы Фаренгейта: ```pascal program TemperatureConverter; var celsius, fahrenheit: real; begin writeln('Введите температуру в градусах Цельсия: '); readln(celsius); fahrenheit := (celsius * 9/5) + 32; writeln('Температура в градусах Фаренгейта: ', fahrenheit); end. ```

Надеюсь, эти программы помогут вам! Если у вас есть какие-либо вопросы, не стесняйтесь задавать. Удачи в программировании!