Помогите пожалуйста
Выполнен
Срок сдачи
16 Мая 2020 в 10:00
Цена
0 ₽
Блокировка
10 дней
Размещен
11 Мая 2020 в 14:41
Просмотров
52
Описание работы
Яке значення S буде виведено в текстове поле?
var N, D, S: Integer;
begin
N:=345; S:=0;
Repeat
d:=N mod 10;
S:=S+d;
N:=Ndiv 10;
Until N=0;
Edit2.Text:= InToStr(S) ;
end
var N, D, S: Integer;
begin
N:=345; S:=0;
Repeat
d:=N mod 10;
S:=S+d;
N:=Ndiv 10;
Until N=0;
Edit2.Text:= InToStr(S) ;
end
Нужна такая же работа?
- Разместите заказ
- Выберите исполнителя
- Получите результат
| Гарантия на работу | 1 год |
| Средний балл | 4.53 |
| Стоимость | Назначаете сами |
| Эксперт | Выбираете сами |
| Уникальность работы | от 70% |
Время выполнения заказа:
3 дня 18 часов 19 минут
Выполнен в срок
Отзыв о выполненном заказе
Спасибо за своевременное и верное решение задания. Давно искал такого автора.
Грамотный специалист, работы выполняет быстро, качественно и великолепно.
Спасибо вам за ваш труд. Очень доволен сотрудничеством.
Грамотный специалист, работы выполняет быстро, качественно и великолепно.
Спасибо вам за ваш труд. Очень доволен сотрудничеством.
Предыдущий заказ
Нужна аналогичная работа?
Оформи быстрый заказ и узнай стоимость
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
