Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
С++
#include<iostream>
using namespace std;
main()
{
int a, s;
cin >> a;
for(int i = 15; i <= a; i++)
s += i;
cout << s;
}
Python
a = int(input())
s = 0
for i in range(15, a + 1):
s += i
print(s)
Pascal
var a, s, i: integer;
begin
read(a);
for i := 15 to a do s += i;
write(s);
end.
Закономерность выборки состоит в том,что выбирается каждая четвертая буква в алфавите.
А,д,з,л,п,у,ч,ы,Я.
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.
4 минуты это 240 секунд. если за 1 сек передается 256000 бит (32000 байт т.е. 1 байт=8 бит) то получится 7680 килобайт за 4 минуты