Var i,k,s:integer;
begin
writeln ('Введи 10 чисел');
for i:=1 to 10 do
begin
readln (k);
if k<0 then s:=s+k;
end;
writeln (s);
end.
В первом задании переменная a будет равна 7, а во втором задании переменная a будет равна 8.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
using std::fixed;
#include <cstring>
using std::strcpy;
#include <iomanip>
using std::setprecision;
int main()
{
char s[100], temp[100];
int counter = 0, counter1 = 0;
cout << "Enter the string: ";
cin.getline(s, 100);
strcpy(temp, s);
//Определяем общее количество слов
//и количество слов с буквай d
char *ptr = strtok(temp, " ");
while(ptr)
{
for(int i = 0; *(ptr + i) != NULL; i++)
{
if(*(ptr + i) == 'd')
{
counter1++;
break;
}
}
counter++;
ptr = strtok(NULL, " ");
}
cout << setprecision(2) << fixed << (counter1 * 100 / double(counter)) << '%' << endl;
return 0;
}
Ответ:
Объяснение:
Возможно только заменить на первом аккаунте номер телефона, тем самым ты освободишь свой. На два аккаунта один телефон нельзя.
// PascalABC.NET
var
y,x,n:real;
begin
write('Введите n: ');
readln(n);
while (x <= n) do begin
writeln('Y = ', sin(x)*cos(x));
x:=x+0.1;
end;
end.
Проверка:
Введите n: 1
Y = 0
Y = 0.0993346653975306
Y = 0.194709171154325
Y = 0.282321236697518
Y = 0.358678045449761
Y = 0.420735492403948
Y = 0.466019542983613
Y = 0.49272486499423
Y = 0.499786801520753
Y = 0.486923815439098
Y = 0.454648713412841