PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
const n=7;
var
i:integer;
v:double;
begin
v:=1000;
for i:=1 to n do begin
v:=v*1.02;
end;
writeln('суммарный прирост вклада через 7 месяцев = ',v:4:0);
end.
1
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
05.02.2016, 08:37 3
Лучший ответ Сообщение было отмечено Памирыч как решение
Решение
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
program z1655173;
const n=7;
var i:integer;
v0,v1:real;
begin
v0:=1000;v1:=v0;
for i:=1 to n do begin
v1:=v1*1.02;
end;
writeln(’Сумма вклада через 7 месяцев =',v1:4:2,' руб.');
writeln(’Суммарный прирост вклада через 7 месяцев =',v1-v0:4:2,' руб.');
end.
1
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strtok;
using std::strlen;
int main()
{
char a[100], *ptr;
cout << "Enter the string:" << endl;
cin.getline(a, 100);
cout << endl;
ptr = strtok(a, "., ");
while(ptr)
{
if(*ptr == *(ptr + strlen(ptr) - 1))
{
cout << ptr << ' ';
}
ptr = strtok(NULL, "., ");
}
cout << endl;
return 0;
}
begin
read(a,c);
b:=sqrt(c*c-a*a);
s:=a*b/2;
writeln('b=',b,' s=',s);
end.