Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

решите 5 и 6)очень надо ...............

5-9 класс

Bombabum 02 сент. 2015 г., 23:33:37 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ismailzeynalli
03 сент. 2015 г., 2:01:41 (8 лет назад)

5.
Program pr;
uses crt;
Var a,b,s:integer;
Begin
s:=0;
a:=2;
for b:=1 to 4 do
Begin
a:=a*b;
if a mod 2<>0 then s:=s+1;
end;
Writeln('a=', a, 's=', s);
readln;
end.

6.
program pr;
uses crt;
Var x,y,x1:real;
Begin
Writeln('vvedite x y');
readln(x,y);
x1:=(abs(5*x+(3*x*y*y))-sqrt(sin(2)*x*x))/(2*x-((25*y)/(6*x)));
Writeln('x1=',x1);
readln;
end.

Ответить

Другие вопросы из категории

Задача 3. Определить

информационный объем стерео аудио файла длительностью звучания 1 секунда при
высоком качестве звука(16 битов, 48 кГц).

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

Помогите решить очень нада
Помогите решить ребусы!

В документе № 2. Очень надо!



Вы находитесь на странице вопроса "решите 5 и 6)очень надо ...............", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.