Pify Sidebar Menu
Menu
- Home
- Информатика
- Выделите строки программы, которые приведут к сообщению об ошибке.Program test2;Var x1, x2: real; a1, a2: integer; s1, s2.
Выделите строки программы, которые приведут к сообщению об ошибке.
Var x1, x2: real; a1, a2: integer; s1, s2:string;
1 Ответы
Ответ:
будет ошибка в строке
Похожие вопросы
- Выделите строки программы, которые приведут к сообщению об ошибке.Program test2;Var x1, x2: real; a1, a2: integer; s1, s2.
- помогите пж S1=336 a1=28 a2=24.
- Отметьте все правильные объявления символьных строк. var s: string; var string: s; var s, s1, s2: array[1..10] of char; var s1, s2.
- Условием равновесия гидравлического пресса является а) F2/S1=F1/S2 б) F2/F1=S1/S2 в) S1/F2= S2/F1 г) F2/F1=S2/S1.
- найдите модуль вектора s=s1+s2 если s1=s2=4см,а угол между векторами a s1 и s2 равен 180.
- 8 класс страница 29 №7 a)=A1+A2 b)=A1+A2/A1-A2 c)=(A1+A2)/(A1-A2) d)=A1*A1+A2/2 e)=A1*(A1+A2)/A2 f)=A2 g)=A1<>A2 h)=B1B1 j)=B1 begin a := 65; a1 := a div 10; a2 := a mod 10: writeln (‘В числе’, a, ‘десятков’:14, a1, ‘един�.
- C++. 10 класс. Даны строки S1 и S2. Удалить из строки S1 последнюю подстроку S2, если S2 не содержится в S1, вы�.
- Даны строки S1 и S2. Удалить из строки S1 первую подстроку S2, если S2 не содержится в S1, вывести S1 без из�.
- a1 + a2 + a3 = 15 a1 + a2 = 15 найти a1; a2; a3.
Последние вопросы
- 3) Верны ли следующие суждения о нормативных правовых актах?А. Нормативные правовые акты принимают.
- казахстанская эстрада .
- Алгебра, 10 класс, решите хоть какое нибудь, кроме 1с,3. Даю 100 баллов.
- Написати земних богів та Олімпійських.Який із них на вас справив враження?Чому?(укр лит)Помогите п�.
- Чем религия помогает быть человеком?дам 25 балов СРОЧНООООПРОШУ .
Лучшие вопросы
- На одной дороге находятся поселения K и R, между которыми 72 км. Автомобиль выехал из поселения R�.
- 1. Что такое жизнь, и почему мы должны изучать её? 2. Как возникла наука о жизнедеятельности? Что изуч.
- вычислите массу mgcl2, при взаимодействии 12г mg с соляной кислотой.
- СРОЧНО!! Нужно твір-роздум на тему 10 заповідей божих у моему житті, минимум на 1 сторінку, (Не то что �.
- что такое нация? как видели себя англичане, французы, немцы, итальянцы, чем гордились? .
Нижний колонтитул о
Continuous Random Variable : How to get E(X) & Var(X) from a PDF.
Компания
Исследовать
- Задать вопрос
- Часто задаваемые вопросы
- Условия предоставления услуг
- Политика конфиденциальности
Следуйте за нами
Свяжитесь с нами
- Позвонить: +1 706-254-9966
- Электронная почта: [email protected]
- Адрес: 1314 Holly Street, Athens, GA 30601, United States
Источник: issue.tips
Determine Transformed Random Expectation and Variance
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn(‘Р
асширение квадратного уровнения’); Write(‘Введите коофиценты a, b, c >>’); ReadLn(a, b, c,); d:=b*b-4*a*c; if d
Ответы на вопрос
Отвечает Лодди Денис.
Program n_11;
var a, b, c, d, x, x1, x2:Real;
begin
WriteLn(‘Решение квадратного уравнения’);
Write(‘Введите коэффициенты a, b, c >>’);
ReadLn(a, b, c);
d:=b*b-4*a*c;
if delse
if d=0 then
begin
x:=-b/2/a;
WriteLn(‘Корень уравнения=’,x:9:3)
end
else
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
WriteLn(‘Корни уравнения:’);
writeln(‘x1=’,x1:9:3);
WriteLn(‘x2=’,x2:9:3);
end
end.
Источник: uznavalka.pro
Выделите строки программы, которые приведут к сообщению об ошибке.
program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,’-е случайное число: ‘,s: 4); end; beginwriteln(‘индексы элементов кратных 3: ‘); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ‘ ‘) end; end; end.
Ответ разместил: Гость
Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln(‘введите стороны первого треугольника.’); read(a1,b1,c1); writeln(‘введите стороны второго треугольника, соответственно сторонам первого.’); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln(‘да, треугольники равны.’) else writeln(‘нет, треугольники не равны.’); end.
Ответ разместил: Гость
мало данных для главное — размер пробоины и размер листа
Источник: spisatika.com