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

Забил на тему, теперь не знаю) Решите пожалуйста в паскале, было бы удобнее, при возможности скрин. из паскаля с работой, или на листке, ну или здесь

10-11 класс

описать) Буду весьма благодарен)

Spartak13 13 сент. 2014 г., 8:36:27 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Aziatka01
13 сент. 2014 г., 10:17:09 (9 лет назад)

1)Program z1;

uses crt;

var a,b: integer;

begin

readln(a); readln(b);

if a<b then begin

b:=b-100; a:=a*2;

writeln(a*b);

end;

if a>b then begin

a:=a-100; b:=b*2;

writeln(a*b);

end;

if a=b then writeln('ravni');

readln;

end.

2)Program z2;

uses crt;

var a,b: integer;

begin

a:=1; b:=1;

while a<100 do begin

if a mod 2=0 then b:=b*a;

a:=a+1;

end;

writeln(b);

readln;

end.

поблагодари в профиле, плз

 

+ 0 -
Vasc
13 сент. 2014 г., 13:09:18 (9 лет назад)

1) 

program example;
var a,b,c,d:real;
begin
write('Первое число - '); readln(a);
write('Второе число - '); readln(b);
if a>b then c:=a-100 else c:=b-100;
if a<b then d:=a*2 else d:=b*2;
writeln ('Произведение полученных чисел равно ',c*d);
end.

 

2) Там просто бешеное число получается. Может, в задании имелась в виду сумма, а не произведение?

Ответить

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

Решить графически

 3^{x} + 1= (x-1)^{2}

Звуковая плата реализует 16-

тибитное двоичное кодирование аналогового звукового сигнала. Это позволяет воспроизводить звук с ...



а) 8 уровнями интенсивности; б) 256 уровнями интенсивности;

в) 16 уровнями интенсивности; г) 65536 уровнями интенсивности.


В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета:

Запрос

Количество страниц (тыс.)

Пушкин | Лермонтов

5200

Лермонтов

3000

Пушкин & Лермонтов

1200

Сколько страниц (в тысячах) будет найдено по запросу

Пушкин

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

Решите пожалуйста!

Это информатика, 10 класс
Вопросы на фотографии
Номера 5 и 6 не надо решать

Люди,прошу вас, помогите пожалуйста, я уже долго сижу над этой задачей,не могу решить,пожалуйста помогите! =(((

найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (Решать без массива)

Программирование. Даны три вещественных числа a,b,c. Существует ли треугольник со сторонами a,b,c? program dz1; uses crt; var

a,b,c:integer;

begin

writeln('введите три числа: ');

readln(a,b,c)

а дальше не знаю помогите пожалуйста!!!!)

Ребят помогите ПОЖАЛУЙСТА! не могу решить задачу по информатике. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении

на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. Буду очень благодарна!!!!

Дайте определение системы счисления. Назовите и охарактеризуйте свойства системы счисления. На 1 часть ответила, а вот насчет свойств систем

счисления не знаю как ответить: то что они распределяються на позиционные, непозиционные и смешанные - только это? Мне кажется, что это мало. Кточто знает помогите пожалуйста.



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