Задать вопрос!

Задать вопрос!

Все категории

4 года назад

11

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

Информатика

1 ответ:

Anastasia-vegan4 года назад

0 0

Сначала надо выяснить, что и сколько покупатели просят;

Потом подсчитать стоимость;

Расплатиться (отдать товар и принять стоимость (деньгами))

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

Решите задачу ПОЖАЛУЙСТА!С 1 циклом For В первый час роботы рачий изготавливает 20 деталей,за каждый последующий час на 3 детале

Katya2002 [1]

Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

В электронной почте всегда автоматически создается папка - .. Какая?

татьяна ка

Автоматически папка - <em>спам</em>

0 0

1 год назад

Помогите пожалуйста составить алгоритм с ветвлением и ленейный алгоритмПожалуйста помогите мне завтра надо сдавать!

Dasha448 [8]

Что то типо этого(линейный)

0 0

4 года назад

задано трёхзначное число составьте программу которая определяет равны ли в нём произведение первой и третьей цифры и сумма второ

Руслан424 [39]

Паскаль

program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.

0 0

4 года назад

Что может помочь сохранить,как можно больше информации. помогите пожалуйста! Тол ко как можно больше)

Данил131

Флэшка...........иииииии

0 0

2 года назад