// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);
#include <stdafx.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <locale.h>
#define N 5
int main() {
setlocale(LC_ALL, "Russian");
int arrey[5][10]={{1,2,3,4,5},{6,7,8,9,10},{11,12,13,14,15},{16,17,18,19,20},{21,22,23,24,25}};
int a = arrey[0][0], b;
for(int j = 0; j < 5; j++)
{
for(int i = 0; i < 10 ; i++){
printf ( "%d\t" ,arrey[j][i]);
}
printf("\n");
}
printf("\n\n");
for (int t=0; t < N; t++)
{
if (arrey [t][t] >= a)
{
a=arrey[t][t];
b=t;
}
}
for(int j = 0;j < 5; j++)
{
if (j!=b)
{
printf("\n");
for(int i = 0; i < 10; i++)
printf ( "%d\t" ,arrey[j][i]);
}
}
printf("\n");
printf ( "\n Максимальное элемент массива %d \n Была удалена %d строка " ,a, b);
getchar();
}
Не знаю что именно и где ты провтыкал, но вот с константами все работает
<span>var</span>
<span> a : array [1..100] of integer;</span>
<span> n, i : integer;</span>
<span> flag : boolean;</span>
<span>begin</span>
<span> write ('Введите количество чисел: ');</span>
<span> </span><span>readln (n);</span>
<span> for i := 1 to n do</span>
<span> begin</span>
<span> write (i, '-</span><span>ое </span><span>число</span><span> = ');</span>
<span> readln (a[i]);</span>
<span> end;</span>
<span> for i := 1 to n do</span>
<span> begin</span>
<span> write (i, '-</span><span>ое</span><span>число</span><span> ');</span>
<span> if a[i] < 0 then </span>
<span> begin</span>
<span> write ('</span><span>отрицательно</span><span>');</span>
<span> flag := true;</span>
<span> end;</span>
<span> if a[i] mod 2 = 0 then</span>
<span> begin</span>
<span> write ('четно</span><span>');</span>
<span> flag := true;</span>
<span> end;</span>
<span> if not flag write ('никакое');</span>
<span> flag := false;</span>
<span> writeln;</span>
<span>end;</span>
<span>end.</span>
Var
t, n: real;
begin
Write('Введите время работы в часах: ');
Readln(t);
n := Int(t * 60 / 7) * 3; { каждая машина сделает целое количество тарелок }
Writeln('Будет сделано тарелок- ', n)
end.
Тестовое решение:
Введите время работы в часах: 3.5
Будет сделано тарелок- 90
Ответ:
а где фото или задание???