4 года назад

Вариант 131. На отрезке [2;3] с шагом 0,1 протабулировать функцию:х5 - х + 1,8 ПОЖАЛУЙСТА ПОМОГИТЕ !

1 ответ:

elena1208 [57]4 года назад

0 0

Uses crt;
var x,y:real;
begin
x:=1.9;
while x<=3 do begin
x:=x+0.1;
y:=power(x,5)-x+1.8;
writeln(x:4:1,' ',y:6:3);
end;
end.

Читайте также

В компьютер вводится значения средней дневной температуры за неделю.На экран необходимо вывести среднюю температуру за неделю,и,

ARMEENIN

Var i,k:integer; s:real; a:array[1..7] of real;beginclrscr;k:=0; s:=0;writeln('Введите среднюю дневную температуру с понедельника по воскресенье:');for i:=1 to 7 do begin Write(i,'-я:'); readln(a[i]); if a[i]<0 then k:=1; s:=s+a[i]; end; Writeln('Средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('Были заморозки');end.

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу, печатающую все простые числа, не превосходящие данного числа. паскаль абс

Александра001 [1]

Program Prostoe;
Uses 
Crt; 
Var 
i, {возможный делитель} 
Number : integer; {исследуемое число} 
Begin 
ClrScr; 
writeln (‘Какое число должно быть проверено? ‘); 
read (Number); 
i := 1; 
repeat 
i := i+1; 
until Number mod i = 0; 
if Number=i 
then 
writeln (Number,’ является простым‘) 
else 
writeln (Number,’ делится на ‘,i); 
readln; 
End.

0 0

1 год назад

Напишите мне програму что бы вышло имя Алена в паркетчике пожалуйста ПРОГРАММУ ДАМ 30 БАЛЛОВ

lat-maksim [155]

Вводи:
System.out.println(("Алена")) ;
Скрин скинул

0 0

4 года назад

У шаха было 30 придворных мудрецов. Как-то раз шах решил проверить их мудрость. Он позвал их всех к себе и сказал: "У меня есть

Роман Косопузый

Ответ:

3 мудреца бмлалслшдрдслсдр

0 0