1.Вывести на экран все натуральные числа от 50-100.
2.вывести на экран квадраты всех натуральных чисел от 10-20
3.XC{5;18} распечатать квадраты каждого из этих чисел
пожалуйста хоть одно помогите решить
Домашние задания: Информатика
Информатика 8 класс
Для начала, на каком языке программирования сделать сие? - Нет программам то без разницы, на каком языке программирования они написаны, а вот учитель/преподаватель может задать вопрос: а с чего это, вдруг, программа написана на этом языке программирования, а не на том, который он преподает?
Как я понял из профиля и комментариев, язык-таки Паскаль (Pascal)...
И да: я несколько не понял: 3 программы надо написать или 1, но в которой выполняются все эти 3 задания?
Т.к. ответы от майл.ру любят "съедать" часть кода для оптимизации, то напишу, пожалуй, 1 программу, которая считает все это. Но, если что - в комментариях могу разделить её на 3 программы, если надо.
Итак:
Program P1;
uses crt;
var i: integer;
begin
clrscr;
write ('Натуральные числа от 50 до 100:');
for i:=50 to 100 do write (' ', i);
writeln (' ');
write ('Квадраты натуральных чисел от 10 до 20:');
for i:=10 to 20 do write (' ', sqr (i));
writeln (' ');
writeln ('X=5; C=18');
writeln ('X^2=', sqr (5), ' C^2=', sqr (18));
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Как я понял из профиля и комментариев, язык-таки Паскаль (Pascal)...
И да: я несколько не понял: 3 программы надо написать или 1, но в которой выполняются все эти 3 задания?
Т.к. ответы от майл.ру любят "съедать" часть кода для оптимизации, то напишу, пожалуй, 1 программу, которая считает все это. Но, если что - в комментариях могу разделить её на 3 программы, если надо.
Итак:
Program P1;
uses crt;
var i: integer;
begin
clrscr;
write ('Натуральные числа от 50 до 100:');
for i:=50 to 100 do write (' ', i);
writeln (' ');
write ('Квадраты натуральных чисел от 10 до 20:');
for i:=10 to 20 do write (' ', sqr (i));
writeln (' ');
writeln ('X=5; C=18');
writeln ('X^2=', sqr (5), ' C^2=', sqr (18));
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
1)
#include <iostream>
using namespace std;
int main(){
int i = 50;
while(i <= 100)
cout << i++ << "\n";
}
2)
#include <iostream>
using namespace std;
int main(){
int i = 9;
while(++i <= 20)
cout << i * i << "\n";
}
3)
#include <iostream>
#include <vector>
using namespace std;
int main(){
vector<int> a = {5, 18};
for(auto &i: a) cout << i * i << "\n";
}
#include <iostream>
using namespace std;
int main(){
int i = 50;
while(i <= 100)
cout << i++ << "\n";
}
2)
#include <iostream>
using namespace std;
int main(){
int i = 9;
while(++i <= 20)
cout << i * i << "\n";
}
3)
#include <iostream>
#include <vector>
using namespace std;
int main(){
vector<int> a = {5, 18};
for(auto &i: a) cout << i * i << "\n";
}
Мария Мазурова
спасибо большое
Bercerk {{@_@}}
нужен паскаль
Похожие вопросы
- Информатика 8 класс…
- Информатика 8 класс
- Пожалуйста, помогите с заданием по информатике , 8 класс
- Задача по информатике, 8 класс, решить в PascalABC
- СРОЧНО!!! ИНФОРМАТИКА 8 КЛАСС!!! ПОЖАЛУЙСТА!!!
- Информатика 8 класс. Начало программирования на языке Паскаль.
- Помогите с информатикой 8 класс!
- Информатика 8 класс программа кумир
- Помогите с информатикой 8 класс
- Информатика 8 класс,Помогите пожалуйста с ДЗ!Очень прошу!