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

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

Помогите составить программу в паскале!Дано трехзначное число, если крайняя цифра справа кратна 3, то заменить квадратом, если средняя цифра равна 0, то увеличить на 2 и вывести результат. Срочно!

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

Ответы

Гость

Var
Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer;
Begin
Writeln('Enter rating');
Readln(Mat,Fizik,Geogr,Biolog,Fizra);
Summ:=Mat+Fizik+Geogr+Biolog+Fizra;
Writeln(Summ);
end.

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

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

Информатика

Помогите, пожалуйста, написать программу в паскале.Дано трехзначное число, если последняя цифра кратна 3, то возвести ее в квадрат, если среднее число равно 0, то увеличить на 2 и вывести результат. Срочно!...

Ответить

Информатика

Презентация клумба нашей мечты...

Ответить

Информатика

Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
...

Ответить

Информатика

Написать на Паскале программу. Вывести на экран все трехзначные числа, сумма квадратов цифр которых равна 105. В программе должен быть контроль, является ли число трехзначным....

Ответить

Информатика

Составить программу, которая вводит три числа и печатает сумму двух наибольших.срочно пожалуйста!!!!!!!!!!!!!!

...

Ответить

Информатика

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

Ответить

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

Математика

Литература

Русский язык

Геометрия

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

Биология

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

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

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

География

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

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

Қазақ тiлi

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

Информатика

Экономика

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

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

Психология