Program adsad; uses crt; var y:real; x:real; p:string; begin textcolor(Lightgreen); writeln('Введите значение x: '); readln(x); writeln('Введите y под корнем: '); readln(y); y:= sqrt(x); writeln('Ответ ', y); if x<=0 then if y<=0 then y:=0; //Обнулил счетчик y:=x*x; writeln('Ответ ', y);
end.

0 0

4 года назад

1.)Задача. Написать программу тестовой проверки знаний из 5 ти вопросов по информатике сообщение правильности каждого ответа и в

Галина Васильна [161K]

Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо

0 0

1 год назад

Написать программу на языке программирования Паскаль Зная температуру воздуха, определить вид осадков (дождь или снег).

LastiSlim Official [29]

Var x: integer;
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.

0 0

4 года назад

Информация на двух страницах занимает 258 байта. Объем информации на первой странице в 2 раза больше объема информации на второй

Greyyys [14]

Пусть на второй странице Х байт информации.

Тогда на 1 странице 2Х байт информации.

3Х = 258

Х = 86 байт - весит 2 страница.

86*2 = 172 байта - весит первая страница.

Т.к. не дано сколько весит 1 символ, пусть это будет Y(в байтах).

Ответ: 172/Y

0 0

4 года назад