Новые вопросы

Информатика Архивный вопрос

Блоксхему пж
Program b4;
Var n:byte;
Begin
write('Введите номер месяца: ');readln(n);
Case n of
1,2,12:writeln('Зима');
3..5:writeln('Весна');
6..8:writeln('Лето');
9..11:writeln('Осень')
else writeln('Не корректный номер месяца');
End;
End.

Нет комментариев

Ответы

Гость

Блок схема в приложении

Блок схема в приложении<br>

Нет комментариев

Похожие вопросы

Информатика

Составить программу решения линейного уравнения ax + b = 0, где а не равно 0....

Ответить

Информатика

Блок схему пж
Program b3;
var a, i, p: Integer;
begin
WriteLn(a);
Read(a);
p := 3;
for i := 1 to 5 do
begin
p := p * a;
WriteLn(p);
end;
end....

Ответить

Информатика

Что такое ,,материнская плата"

...

Ответить

Информатика

Блоксхему пж
program wk;
var x,a,b,c:integer;
begin
Readln(x);
A:=x mod 10;
b:=x div 100;
c:=(x div 10)mod 10;
x:=a*100+b*10+c;
Writeln(x);
Writeln(a,' ',b,' ',c);
end....

Ответить

Информатика

Блок схему пж
program pr1;
var a,b,c:byte;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
if b>c then begin b:=b+c; c:=b-c; b:=b-c;end;
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
writeln('a=',a,' b=',b,' c=',c);
end....

Ответить

Информатика

Помогите с информатикой пожалуйста!...

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология