begin //начало программы
var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;
writeln('Введите количество карандашей'); //вывести на экран надпись
readln(nk); // запись ответа пользователя в переменную nk
writeln('Введите количество тетрадей'); //вывод на экран надписи
readln(nt); // запись ответа пользователя
writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи
readln(ck); // запись ответа пользователя в переменную
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки
writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран
end. // конец программы
(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)
(nk-количество карандашей, nt-количество тетрадей)
Запишу на обычном языке, Паскаль не помню уже.
А - первое число. Б - второе число.
Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')
Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')
Точно не помню как выглядит это в Паскале, но что-то типо такого
If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');
If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');
begin //начало программы
var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;
writeln('Введите количество карандашей'); //вывести на экран надпись
readln(nk); // запись ответа пользователя в переменную nk
writeln('Введите количество тетрадей'); //вывод на экран надписи
readln(nt); // запись ответа пользователя
writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи
readln(ck); // запись ответа пользователя в переменную
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки
writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран
end. // конец программы
(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)
(nk-количество карандашей, nt-количество тетрадей)
Запишу на обычном языке, Паскаль не помню уже.
А - первое число. Б - второе число.
Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')
Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')
Точно не помню как выглядит это в Паскале, но что-то типо такого
If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');
If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');