1) Робот- это машина, которая запрограммирована на определенные действия, которые облегчают жизнь человеку. На самом деле, мы используем в быту довольно много роботов: та же стиральная машина-робот; пылесос- робот; компьютер-робот; автомобиль- тоже робот. Как видно, они здорово нам в жизни.
2) к первым роботам можно отнести механическую утку, которую изобрел основоположник робототехники, физик Жак де Вокансон.
Также к числу первых робототехников можно отнести и великого русского механика и физика Чебышева, который изобрел различные механические машины.
var n,a,k,sum,i,j: integer; s: string; begin sum:=0; write ('Введите количество чисел: '); readln (n); for i:=1 to n do begin write ('Введите число: '); readln (a); Str(a,s); k:=0; for j:=1 to length(s) do if s[j]='5' then k:=k+1; if k=2 then sum:=sum+a; end; writeln ('Sum = ',sum); end.
2 вариант через div и mod
var n,a,x,k,sum,i: integer; begin sum:=0; write ('Введите количество чисел: '); readln (n); for i:=1 to n do begin write ('Введите число: '); readln (a); x:=abs(a); k:=0; while x>0 do begin if x mod 10 =5 then k:=k+1; x:=x div 10; end; if k=2 then sum:=sum+a; end; writeln ('Sum = ',sum); end.
пример результата:
Введите количество чисел: 3 Введите число: 550001 Введите число: -550000 Введите число: 123456 Sum = 1
Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
1) Робот- это машина, которая запрограммирована на определенные действия, которые облегчают жизнь человеку. На самом деле, мы используем в быту довольно много роботов: та же стиральная машина-робот; пылесос- робот; компьютер-робот; автомобиль- тоже робот. Как видно, они здорово нам в жизни.
2) к первым роботам можно отнести механическую утку, которую изобрел основоположник робототехники, физик Жак де Вокансон.
Также к числу первых робототехников можно отнести и великого русского механика и физика Чебышева, который изобрел различные механические машины.