7x^2-3x+6=0
D=b^2-4ac=9-4*7*6=-159
рівняння розв'язків немає
Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a);
writeln('Сколько вы хотите купить ткани?(в метрах квадратных)');
readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
<span>В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
</span>
//я так понимаю, речь идёт о монотонном возрастании
var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
for i:=2 to 10 do
begin;
if ar[i]<ar[i-1] then
begin;
writeln('Не возрастает');
exit;
end;
end;
writeln('Возрастает');
<span>end. </span>
Добрый вечер. У вас не казан язык реализации, данный код на С++.
#include <iostream>
int main() {
int arr[5];
for (int i = 0; i < 5; i++) {
std::cin >> arr[i];
std::cout << arr[i] + 1 << " ";
}
return 0;
}
задание очень простое. Это самая простая реализация. Если нужны объяснения или более сложная реализация пишите. Удачи.