Китайские счёты суаньпань разделены на две неравные части в большем отделение нанизаны по пять косточек в малом по две самый правый ряд единицы Если хотим выставить к примеру 7 А это больше 5 но меньше 10 то
Program Mysmka; uses crt; const n=15; var a:array[1..n] of real; i:integer; z,sum40:real; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); write('Введите загадочное число Z '); readln(z); writeln('Элементы массива:'); {создание и вывод массива} sum40:=0; for i:=1 to n do begin a[i]:=i*z; write (a[i]:7:2); if a[i]>40 then sum40:=sum40+a[i]; end; writeln(); writeln('Сумма чисел, больших 40: ',sum40:7:2); end.
# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1): summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N for i in range(1,n): a=int(input("Введите номиналы карточек: ")) summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет print("Потерянная карточка - {}".format(summa_range_i-summaCards))
Program Mysmka;
uses crt;
const n=15;
var
a:array[1..n] of real;
i:integer;
z,sum40:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число Z ');
readln(z);
writeln('Элементы массива:');
{создание и вывод массива}
sum40:=0;
for i:=1 to n do
begin
a[i]:=i*z;
write (a[i]:7:2);
if a[i]>40 then sum40:=sum40+a[i];
end;
writeln();
writeln('Сумма чисел, больших 40: ',sum40:7:2);
end.