//PascalABC.Net 3.1.0.1200
var
yesterday, before_yesterday, all, this_day, days: integer;
begin
yesterday := 6;
before_yesterday := 6;
all := yesterday + before_yesterday;
days := 2;
repeat
days += 1;
this_day := yesterday + before_yesterday + 3;
all += this_day;
if days mod 10 = 0 then all := trunc(all * 0.95);
before_yesterday := yesterday;
yesterday := this_day;
until all > 1500;
writeln('days = ', days);
end.
Class Task1{
public static void main(String[] args){
int sum = 0;
for(int c = 2; c<11; c++)
sum+=c*c;
System.out.println(sum);
}
}class Task2{
public static void main(String[] args) throws java.io.IOException{
int c = 0, n = 0;
while((c = System.in.read())>47 && c<58)
n=n*10+c-48;
float exp = 1;
for(c = 2; c<n+1; c++)
exp*=Math.sin(c);
System.out.println(exp);
}
}
Ввести с клавиатуры 8 чисел (2, 3, 4, 10, 5, 8, 7, 20) чисел. Найти произведение чисел < 5 Даны числа: -2, 10, 6, -5, 14,- 8
Алексей Мягков
1)Const n=8;
Var p, i, a:Integer ;
Begin
Write ('Введите влсемь чисел') ;
P:=1;
For i:=1 to N do begin
Read(a) ;
If a<5 then P:=p*a;
End;
Writeln('произведение чисел меньших пяти ', p) ;
End.
2)Const n=6;
Var p, i, a:Integer ;
Begin
Write ('Введите шесть чисел') ;
P:=0;
For i:=1 to N do begin
Read(a) ;
If a<0 then P:=p+a;
End;
Writeln('сумма чисел меньших нуля ', p) ;
End.
3)Const n=100;
Var i, s:Integer ;
Begin
S:=0;
For i:=1 to N do begin
If i mod 4=0 then s:=s+1;
End;
Writeln(s) ;
End.
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
float a;
char e;
while (e!='n')
{
cout<<"введите рост танкиста (в сантиметрах) ";
cin>>a;
if (a <= 170)
cout<<"годен в танкисты"<<endl;
else
cout<<"не годен в танкисты"<<endl;
cout<<"ещё раз? (y/n) ";
cin>>e;
}
return 0;
}
Тут подбором наверное нужно решать. Просто переводим в другие системы, пока не получится то, что просят (100). Чтобы не делать тут длинные лишние записи, я напишу сразу то, что должно получаться.
Если тебе обязательно нужно по очереди все перебрать - перебирай.
49 в семиричную
49:7=7 (0)
7:7=1(0)
Записываем снизу вверх:
100 - то, что и просили.
В семеричной системе счисление основание 7 (потому она и семеричная)
Ответ: 7
