Программирование) очень срочно помогите по братский))) решите только 2
10-11 класс
|
Задача 32.
var y,x:real;
begin
writeln('Введите x');
readln(x);
y:=(7*x*x)-(3*x)+6;
writeln(y);
end.
Задача 33.
var a,y:real;
begin
writeln('Введите a');
readln(a);
y:=(12*a*a)+(7*a)-16;
writeln(y);
end.
А язык какой? Я могу хоть на С++
Другие вопросы из категории
123 (5) в ( ) (10)
1023 (4) в ( ) (10)
0,4412(5) в ( ) (10)
0,076 (8) в ( ) (10)
123(10) в ( ) (5)
149 (10) в ( ) (8)
1500 (10) в ( ) (8)
25 (10) в ( ) (2)
program f_3;
var f1, f2, f3:text;
C:integer;
G:char;
s:string;
sp:string;
begin
s:=('');
sp:=(' ');
Assign(f1, 't.txt');
Assign(f2, 't2.txt');
Assign(f3, 't3.txt');
Reset(f1);
Rewrite(f2);
Rewrite(f3);
while not eof(f1) do
begin
readln(f1,G);
C:=ord(G);
writeln(f2,inttostr(C));
end;
Reset(f2);
while not eof(f2) do
begin
readln(f2,C);
G:=chr(C);
writeln(f3,G);
end;
close(f1);
close(f2);
close(f3);
end.
Читайте также
Определить,можно ли сделать круглую заготовку с заданным радиусом R из квадратного листа фанеры с заданной стороной А. решить ее надо с помощью оператора выбора case
Найти максимальный по модулю элемент массива А.
Массив я вычислил, а остальное не получается(
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication27
{
class Program
{
static void Main(string[] args)
{
int n = 30;
double[] a = new double[30];
for (int i = 0; i <= 20; i++)
{
a[i] = Math.Sqrt(i ^ 2 + 1) - Math.Sin(i / n);
Console.WriteLine("a(" + i + ")=" + a[i]);
}Console.ReadKey();
}
}
}