Составить блок-схему алгоритма и программу на паскале для вычисления функций 2. ввести программу в эвм, вычислить
значения функции и проверить ее для самостоятельно выбранных трех пар значений переменных хиү.
{e^3xy
z= {4х + зу,
{0.5x,
зу +x> 14
узу +x< 14
зу + х = 14
var a,b,c:integer;
begin
write('Введите результаты 3-х экзаменов: ');
readln (a,b,c);
if a+b+c < 13 then writeln ('Сожалеем, вы не приняты...')
else writeln('Поздравляем, вы приняты!')
end.
const n=3;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
write('Введите результат ',j,' экзамена ',i,' ученика ');
readln(a[i,j])
end
end;
writeln;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:= s+a[i,j];
if s < 13 then writeln ('Сожалеем, ученик ',i,' вы не приняты...')
else writeln('Поздравляем, ученик ',i,' вы приняты!')
end
end.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace example
{
class Program
{
static void Main(string[] args)
{
double x = 0;
Console.WriteLine("Введите число n");
int n = int.Parse(Console.ReadLine());
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введите " + (i+1) +" число");
x =x + int.Parse(Console.ReadLine());
}
x = x / n;
Console.WriteLine("среднее арифметическое целых чисел составило: "+ x);
Console.ReadLine();
}
}
}