Язык C++.
#include <iostream>
using namespace std;
int main () {
float a, b, c, p;
cout << "Введите стороны треугольника: " << endl;
cin >> a >> b >> c;
if (a + b > c && a + c > b && b + c > a) {
cout << "Периметр треугольника: " << a+b+c << endl;
}
else {
cout << "Треугольник не существует." << endl;
}
}
Это выводит в какой по номеру день опаздало наибольшее количество учеников (1-пн, 2-вт и т.п.)
Var f:text ;
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
В первой скобке дано условие х<4. Из представленных вариантов подходят три: 1,2,3. Во второй скобке условие х>2. Из вариантов здесь подходят два: 3 и 4. Решая конъюнкцию первых двух скобок получаем 3. Ну и последняя скобка дает результат 1,3,4. Конъюнктируя этот результат с 3, получим 3. Ответ: 3.
Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;
begin;
for m:=1 to 12 do
begin
write('В месяц ',m,' температура t = ');
readln(a[m]);
end;
s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;
writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);
end.