-
Тяжёлые валы нальются безысходности яростью,заревут,загрохочут. Сделайте пожалуйста части речи
-
Предмет:
Русский язык -
Автор:
paris - 5 лет назад
-
Ответы 1
-
тяжелые - прилагательноевалы - существительноенальются - глаголбезысходности - существительноеяростью - существительноезаревут - глаголзагрохочут - глаголвсе, если это надо было сделать
-
Автор:
braedonh7sm - 5 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
Тяжёлые валы нальются безысходности яростью,заревут,загрохочут. Сделайте пожалуйста части речи
-
Предмет:
Русский язык -
Автор:
braniacxx2i - 5 лет назад
-
Ответов:
2 -
Смотреть
-
-
Магазин продал за день 24 кг яблочного варенья и 40 кг айвового, причём айвового варенья было продано на 8 банок больше, чем яблочного. Сколько банок варенья каждого сорта было продано за день, если банки были одинаковые? Решить с пояснениями
-
Предмет:
Математика -
Автор:
javion - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
Паскаль ABC Хочу сделать так, что бы если человек писал Да, то программа предлагала бы ему ввести значения снова, а она пропускает строку 'Введите коффициент а' и если человек отвечает Нет или пишет еще что то, она выдавала фразу в конце( Спасибо за использование). Что я сделал не так?
program Pr1;
const
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name: string;
t: boolean;
Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln;
if t then
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end
else
writeln ('Спасибо за использование');
end.-
Предмет:
Информатика -
Автор:
amelie - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
чому том і гек вирішили свідчити на суді
-
Предмет:
Другие предметы -
Автор:
heatherdeleon - 5 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35898 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
754
How much to ban the user?
1 hour
1 day
100 years