Информатика, 16.10.2019 14:49, xXFrostaliyaXx

Информатика 9 класс, решите через libreoffice .
формула =(-b2-(b2^2-4b1b3)^0,5)/(2*b1)

Всего ответов: 1

Ответы

Ответ разместил: xodo322

1)
var
a, b: integer;
begin
readln(a, b);
if (a mod 2 = 0) and (b mod 2 = 0) then
writeln('Оба четные')
else
writeln('НЕТ');
end.

2)
var
a, b: integer;
begin
readln(a, b);
if (a mod 2 = 0) or (b mod 2 = 0) then
writeln('Является')
else
writeln('НЕТ');
end.

Ответ разместил: kamenskijnikita

объяснение:

мможешь фото сделать у меня не загружется

Ответ разместил: soz2019oy63um

Объяснение:

Во вложении

Ответ разместил: Artemhhh

ответ:

где вопрос?

объяснение:

где вопрос?

Ответ разместил: princess82

я выбирал задания у которых больше всего .

надеюсь тебе это решение

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.

Ответ разместил: acre5422какаха

Program massiv;
var
a: array [1..100] of integer;
p,n,c: integer;
begin
writeln('Vvedite chislo P');
readln(p);
c:=0;
for n:=1 to p do
begin
a[n]:=n;
c:=c+a[n];
end;
writeln(c);
end.

Ответ разместил: Гость

Ответ: 5 если что то не понятно скажи я обьясню

Ответ разместил: Гость

Поищи етот фильм на других сайтах,ютубе если его нету нигде то я не знаю: /

Другие вопросы по Информатике

Информатика, 13.03.2019 05:50, Sparrow2055

Записати послідовність натискання кнопок калькулятора для обчислення виразу; 10*4+30*2

Ответов: 1

Посмотреть

Информатика, 13.03.2019 23:30, katmik04

Под признаками объекта мы будем понимать его? продолжите предложения!

Ответов: 1

Посмотреть

Информатика, 14.03.2019 20:49, ninbondar100164

Паскаль 1.составить программу которая проверяет четное ли это число 2.составить программу которая уравнивает два числа a и b 3.составить программу которая проверяет трехзначное ли это число

Ответов: 1

Посмотреть

Информатика, 14.03.2019 21:40, Darya789

Паскаль. найдите sкруга и длину окружности. числа не даны. там начало : program: zadacha333; var..

Ответов: 2

Посмотреть

Информатика, 17.03.2019 17:47, ропчан

Внести в программу изменения так, чтобы числа выводились в обратном порядке -от большего к 2.

Ответов: 2

Посмотреть

Информатика, 03.04.2019 14:22, ndiana2402

Напишите программы для построения правильных многоугольников со сторонами 12,20 и 100