Напишите линейную программу на вычисление и вывод результата на монитор.

Знания

Информатика

1 ответ:

нитмир4 года назад

0 0

Var a, b, c : real; Begin Write('введите a: '); Readln(a); Write('введите b: '); Readln(b); Write('введите с: '); Readln(c); Write('(a + b) * c = ', (a + b) * c); Readln; End.

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

Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему алгоритма к задаче

Дмитрий 1122 [18]

Напишу программу на паскале, блок схему нет возможности нарисовать
P.S inc - это увеличение переменной на единицу. Удачи по иформатике)
_____________________________________________________________
var i, k, c, pr: int64;
begin
k := 1;
pr := 0;
while pr < 100 do
begin c := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(c) end;
if c = 2 then begin write(k, ' ');
inc(pr) end;
inc(k) end;
end.

0 0

4 года назад

Упростите логическое выражение: F=не(А&B)|не(B&C)

povicattso

не(А&B)|не(B&C)
Я перепишу по человечески
!(A*B) + !(B*C) = !A + !B + !B + !C = !A + !B + !C
По моему больше не упростить

0 0

4 года назад

Задан массив, состоящий из 33 элементов, являющихся случайными числами из диапазона (-20, 60). Вывести на экран числа, большие 4

Николь Дьячук [22]

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.

0 0

4 года назад

Для какого из приведённых чисел истинно высказывание: НЕ (число < 20) И (число нечётное)?1) 82) 153) 214) 36

LOT59

Нечетных: 15, 21
больших или равных 20: 21

ответ 3) 21

0 0

4 года назад

Помогите пожалуйста решить систему уравнений в паскале . 3x x<-1 y= sinx-cosx -1<x<1 x принадлежит (- 3,5) x*x+1/2x-7 x

7207623

Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then
begin
if x<-1 then y:=3*x
else if x<1 then y:=sin(x)-cos(x)
else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
end.

0 0

3 года назад