х=7690 - условие
var x, L, M: integer;
begin readln(x);
L:=0;
M:=0;
while x > 0 do begin
1) L:= L + 1 = 1;
M:= M + x mod 10 = 0;
x:= x div 10 = 7 69;
2) L:= L + 1 = 2;
M:= M + x mod 10 = 9;
x:= x div 10 = 7 6;
3) L:= L + 1 = 3;
M:= M + x mod 10 = 15;
x:= x div 10 = 7 ;
4) L:= L + 1 = 4;
M:= M + x mod 10 = 22;
x:= x div 10 = 0;
end;
writeln(L);
write(M);
end.
L = 4; M = 22
Объяснение:
1)L:= L + 1 = 0 + 1 = 1;
M:= M + x mod 10 = 0 + 0 (остаток) = 0;
x:= x div 10 = 7690 : 10 = 769 (остаток 0 здесь не пишется);
2)L:= L + 1 = 1 + 1 = 2;
M:= M + x mod 10 = 0 + 9 (остаток) = 9;
x:= x div 10 = 769 : 10 = 76 (остаток 9 здесь не пишется);
3)L:= L + 1 = 2 + 1 = 3;
M:= M + x mod 10 = 9 + 6 (остаток) = 15;
x:= x div 10 = 76 : 10 = 7 (остаток 6 здесь не пишется);
4)L:= L + 1 = 3 + 1 = 4;
M:= M + x mod 10 = 15 + 7 (остаток) = 22;
x:= x div 10 = 7 : 10 = 0 (остаток 7 здесь не пишется);
Поделитесь своими знаниями, ответьте на вопрос:
ответьте на вопросы. 1. Какие данные называются структурированными? 2. Дайте определение и опишите назначение базы данных. 3. Дайте определение и опишите назначение системы управления базой данных. 4. Поясните, в чем заключается различие архитектур баз данных, организованных по принципу клиент-сервер и файл-сервер. 5. Назовите и поясните взаимосвязь структурных элементов базы данных. 6. Дайте понятие ключа. Какие виды ключей вы знаете? 7. Какие характеристики указываются при описании структуры базы данных и каково назначение такого описания? 8. Данные каких типов могут храниться в полях базы данных? 9. Какие модели данных вы знаете? 10. Поясните назначение ключевых полей в реляционной базе данных. 11. Какие виды связей между объектами вам известны? 12. Каковы основные функциональные возможности СУБД? 13. Какие команды выполнения типовых операций в среде СУБД вы знаете? 14. В каких объектах хранятся данные базы? 15. Чем отличаются поля и записи таблицы? 16. Какие типы полей вы знаете? 17. Какое поле можно считать уникальным? 18. Каким должно быть поле первичного ключа? 19. Какую базу данных называют реляционной? 20. В каком диалоговом окне создают связи между полями таблиц БД?
begin
var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
var c:=a.Intersect(b).ToArray;
Write('C='); c.Println;
a:=a.Except(c).ToArray; Write('A новый='); a.Println;
b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.
Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1