М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Переведите программу о сдаче с языка Кумир на язык Паскаль
алг Сдача
нач
. цел s,k500,k100,k50,k10
. ввод s
. k500:=div(s,500)
. s:=mod(s,500)
. k100:=div(s,100)
. s:=mod(s,100)
. k50:=div(s,50)
. s:=mod(s,50)
. k10:=div(s,10)
. s:=mod(s,10)
. вывод "сдано:",нс
. вывод "купюр по 500р. - ",k500,нс
. вывод "купюр по 100р. - ",k100,нс
. вывод "купюр по 50р. - ",k50,нс
. вывод "купюр по 10р. - ",k10,нс
кон
Наберите в программе Паскаль протестируйте на значении s=4960

👇
Ответ:
valentinateleg2607
valentinateleg2607
24.12.2020

var s,k500,k100,k50,k10: integer;

begin

readln(s);

k500:=s div 500;

s:=s mod 500;

k100:=s div 100;

s:=s mod 100;

k50:=s div 50;

s:=s mod 50;

k10:=s div 10;

s:=s mod 10;

writeln('Сдано:');

writeln('купюр по 500р. - ',k500);

writeln('купюр по 100р. - ',k100);

writeln('купюр по 50р. - ',k50);

writeln('купюр по 10р. - ',k10);

end.


Переведите программу о сдаче с языка Кумир на язык Паскаль алг Сдача нач . цел s,k500,k100,k50,k10 .
4,6(31 оценок)
Ответ:

program Сдача;

var s,k500,k100,k50,k10:integer;

begin

 readln(s);

 k500:=s div 500;

 s:= s mod 500;

 k100 := s div 100;

 s:= s mod 100;

 k50:= s div 50;

 s := s mod 50;

 k10 := s div 10;

 s := s mod 10;

 writeln('сдано:');

 writeln('Куплю по 500р - ', k500);

 writeln('Куплю по 100р - ', k100);

 writeln('Куплю по 50р - ', k50);

 writeln('Куплю по 10р - ', k10);

end.

Ввод:

4960

Вывод:

4960

сдано:

Куплю по 500р - 9

Куплю по 100р - 4

Куплю по 50р - 1

Куплю по 10р - 1

4,6(6 оценок)
Открыть все ответы
Ответ:
kydyrali610
kydyrali610
24.12.2020
Приведенная программа принимает целые числа и выводит два значения: a - количество цифр в числе и b - произведение цифр, составляющих число. При вводе нуля программа завершает работу.  Ввод отрицательных чисел игнорируется.
1) При исполнении этой программы на экран было сначала выведено число 2, затем число 15. НАИМЕНЬШЕЕ значение переменной x, для которого это возможно, равно С) 35
Здесь количество цифр равно двум, а их произведение равно 15. Число 15 представимо в виде произведения двух однозначных чисел только в виде 3х5 или 5х3. Следовательно, наименьшим числом могло быть только 35.
2) При исполнении этой программы на экран было сначала выведено число 2, затем число 15. НАИБОЛЬШЕЕ значение переменной x, для которого это возможно, равно B) 53
Решение аналогично предыдущему, но выбирается наибольшее число, т.е. 53.
3) НАИМЕНЬШЕЕ значение переменной b, которое может быть выведено на экран этой программой, равно Е) 0
Минимальное значение произведения n однозначных чисел будет равно нулю, если среди этих чисел встретить хотя бы один ноль.
4) При исполнении этой программы на экран было сначала выведено число 2. НАИБОЛЬШЕЕ значение переменной b, которое может быть выведено на экран, равно А) 81
Максимальное произведение двух однозначных чисел равно 9х9=81.
5) НАИМЕНЬШЕЕ значение переменной a, которое может быть выведено на экран этой программой, равно D) 1
Понятно, что чисел с количеством знаков, меньшим единицы, быть не может.
4,5(24 оценок)
Ответ:
nikop65
nikop65
24.12.2020
Uses crt,graphABC;
var a,m,n,j,i,x1,y1,x2,y2,x3,y3,x4,y4,kg,kv,p:integer;
    k:real;
    
procedure kvadrat;//рисование 1 квадрата
begin
setpencolor(clBlue);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y3);
lineto(x4,y4);
lineto(x1,y1);
end;
 
begin
hidecursor;
repeat
write('Сторона квадрата от 20 до 100 a=');
read(a);
until a in [20..100];
repeat
writeln('Введите 2 числа для определения соотношени m<n:');
read(m,n);
until m<n;
clearwindow;
k:=m/n;//отношение
kg:=windowwidth div a+1; //кол. кв. по горизонтали
kv:=windowheight div a+1; //по вертикали
for j:=1 to kg do
for p:=1 to kv do
 begin
  for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте
   begin
    kvadrat;
    x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k);
    x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k);
    x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k);
    x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k);
   end;
x1:=a*(j-1); y1:=a*(p-1); //на новое место
x2:=a*j; y2:=a*(p-1);
x3:=a*j; y3:=a*p;
x4:=a*(j-1); y4:=a*p;
end;
 
 
end.

Втетради нарисовать орнамент из разноцветных прямоугольников, ромбов, квадратов, подготовить програм
4,4(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ